





Auto : 

le prix du kilo 



imprimante ; 

earacteres giants 

sur fmagewriter I 
et imagewriter 11 




Dessin : 

peinture automatique 



e6 



a* 



0" 



JO 




3^ rt- irn 13 F 



Ausommairedi»n , 8 
de TREMPLIN MICRO 




• LA BOITE AUK IDEES (petite hose de donnees) 

• Mas termind ( version pour Apple tie et lie) 

• Translist... ou comment crSer un fichier source d portir d'une simple 
routine en langage machine ? 

• Redimensionner vos variables 

• Variables dimensionnees (comprendre les...) 

• Ecran -damier en 40 et 80 colonn es ( initiation ) 

• AND, DEMO (comment utilises cette instruction) 

• Miroir (toutes les lignes d' ecran inversees en un clin d'eeii) 

• Tete en has (encore de l initiation f). 

• HISTO.TEXT (graphique en mode TEXT, avec les caracteres souris... 
mais sur Apple Ik ou lie + 65C02) 

• CA TALOC PRODOS inedit 

• MIXAGE HGR1 et HGR2 

• ORGAN ISA TION D UN TOURNOI 
Etc., etc. 



(Basic) aurcitdu etre rectified© la merne moniire,.. cequi n'a pasete le cas, 
Doux iolutlom i 

1 ! Elimination des NOP (EA EA), facile quand on utilise un assembled— et VISU.CH est bon. 

F Ne rien changer, mais modifier les lignes 160 el 180 de VISU.CH. de la maniere sulvante : 
692 au lieu de 690 — 665 au lieu de 663. 




VISU-PUCE K6) 




TREMPLIN MICRO — GUY-HACHETTE 
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Je persiste et signe... 



EXISTENCE merne de TREMPLIN MICRO nous en 
administre une preuve irrefutable : to program- 







Mnn 


nnrn 


j_ 


1 r 



d r Apple sur dix; Qui plus est, cet utilisateur 
est devenu un lecteur regulier de lo revue r Je 
surs tente d'ajouter.,. ei un amL 

Je I'ovois ecrit sous le titre de notre numero 1 , il y a un 
peu plus d'un an : Programmer devient un jeu* Cetait — 
et cela reste vrai aujourdhui — un objectif pour Tremplin 
Micro : fournir aux amateurs de programmation le plus 
grand nombre possible de routines capable* de les aider a 
"poss&der vraiment teur Appte'\ 

Deputs, T.M. a publie bon nombre de programmes, tantdt 
efementaires, tant6t d'un niveau superieur. Le Basic n'o 
pas £t£ n£glig£, mais de fnkjuentes incursions dans le 
langage machine, celui que la machine cornprend le 
mieux... et le plus rapidement, ont permis de debroussail- 
ler le terrain.,, encore a d^couvrir d'une programmation 
qui seduil 66\a de nombreuses lectrices et de non moins 
nombreux lecteurs, 

Specialiste des jeux d r esprit {el createur d'une soixantaine 
de revues), je mointiens que ta programmation est un jeu, 
Mieux : une aventure dans laqueile on ne saurait s'enga- 
ger sans avoir le desir intense de progresses., pour 
gagner. 

Amusezvous bien ! GUY-HACHETTE. 



..la programmation est un jeu ! 



trempijn MICRO 
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INITIATION 




• All! IMF mi FTFINT 7 


P 7 


* jO?iuoge sur o Diis 


■ "; 


JEUX 




# MEMO-VISU 




(un jeu vi sue 1 pour tester voire sens 




de i o perception opprenore o uti- 




II 1 Uiif utrlilt? (t?l III tr i • • 


1 7 


• Villes de France 




un |eu instruetif de M, DEVAUX , . , 


ft T 

37 


DES TRUCS 




• Adresses utiles — * 


8 




U 


• Le point sur RND 


41 



AMUSETTE 

LETTRES EN PIUIE 

un programme pour los nostolgiques 

de I'effoccment progressif , . tt «iw:f.i * 

GRAPH 

Une nouvelSo version pour chiffres en dents de 
&cie i * 23 



COMMENT COLQRER UNE 

grapheme en haute resolution , - 



21 



LE COUT REEL 
DE VOTRE 

AUTOMOBILE par Cement REWARD 




TRfMPtlN MICRO te num£ro 6 paraltra le J mat. 



GRAPH1SME 

■ IPO de Dominique LUGAT 

{une nouvelle fonctlon grnphique poor 
inverse r la coo leu r, ef facer le point,, 
creer de petites animations, etc.) . . . 3 

■ Construiset de? pyramides 16 

■ AtLUftAt ou ETEINT ? 

Commenl connaTlre I'etal d'un point 
de I'^cran T 

■ Colorer une figure 21 

■ CADRE-DEMO 

en r^ponse 6 M, ANSELME ... « 



ORIGINAL! 

CARACTERES GEANTS sur voire 
imprimantc Apple 

(DMP et IMAGEWRITER I el II) ... . 12 
C A RACI N WDEMO , , 15 



L0G1CIEL 

• CX HERAKLES 

UT1LITAIRES 



. 46 



DATA-GENERATOR 

pour creer des lignes DATA ou gr6 de 

sa fantaisi© 30 

Ou CATALOG devient CAT 33 

Rcrnplocer une choTne de caracteres . . 35 



USEZ AU5S1 : 



43 
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Bibtiotheque intormatique , , 

Logkiels de jeux sur Apple It ; 
MANDRAGOR6, HOLD-UP, COLO 
RJAGE5. PUZZLES. ARCANE 
Utilisation de GRAF.O 

Le courrier des lecteur& 

— ,v, ur r\n If ff PAft It 

— fMPUT, WRtTE FT ffeAD W MOO€ £W«f CT 

— ADRSSSE DXWf VAMABii 

— POUR UN CAOfft HQ* 

— FORMA TAGS SMAG€WfttTER 

— get. rwf 

— QNSGMfX) COia... 

Votre fiche n°7 61 — 

Bulletin de command* »t d'abonnement 



$4 
5* 

57 
57 

J* 

** 

$9 

62 



2 



GRAPH IS ME 



DOS 3.3. 



ProDOS 



Dominique LUGAT 




UNE NOUVELLE 
FONCTION GRAPHIQUE 



m m mmm sm 



Comme HPLOT X P Y, la fonction & IPO X. Y trace le point correspondent aux 
coordonn^es X et Y. mais la s'arrete la comparaison* 

En effet, & IPO est capable de lire les caract£ristiques existant dejd a I'adresse 
X r Y (meme vide, votre 6cran est constitue de points). 

Le programme IPO est £crit en assembleur, rapidite oblige, et peut §tre divise 
en deux grandes parties : 

• IPO proprement dit (dont nous vous fournissons le programme source complet). 

* IPO TO, transposition modifiee de HUNE, dont seuls les codes vous sont donnas. 
Ces deux parties sont reunies dans un seul fichier ; fPO.C 

IHSATiQNS POSSIBLES : Au gr© de votre imagination, bien but, mais en void une 

list© non exhaustive l inverser la couleur, effacer le 
point, J© faire dignoter, deptocer un pointeur commande par la souris, cr^er de 
petites animations, des effets sp£ciaux, etc. 

PROCEDURE : 1POX est oppele via Ampersand, de la maniere habituelle (S3F5 : 4C 



10 60 ou encore POKE 1013.76 \ POKE 1014,16 : POKE 1015,96) 
SYNTAXE : HPLOT X, Y devient & IPO X, Y HPLOT TO X Y devient & IPO TO X, Y 




Un programme de demonstration, en Basic, vous 
montrera, mieux que de longues explications, 
comment utiliser & IPO dans le cadre de vos reali- 
sations graphiques. Notez que la routine en Ian- 
gage machine n'est pas relogeable et n'oubliez 
pas, si vous ©mpJoyez de nombreuses variables, 
da pf oteger la total ite de vos programmes, oinsi 
que les pages graphiques par un LOMEM : 25074. 



PROGRAMME DEMO 






TREMPUN MICRO 



IPO DEMO ■ 

100 REM DEMONSTRATION & IPO X,Y ET 8, I 
PO TO X,Y 

HO TEXT ( NORMAL :0* = CHR» (4>:G» ■ 
CHR* (7?: PRINT CHR* (21): HOME : 
PRINT 6S 

120 T» = * : INVERSE 
: HTAB llf VTAB 10: PRINT TS: HTAB 
LIS VTAB lit PRINT * DEM0NSTRAT1 
ON »i HTAB tit VTAB 12: PRINT " 
8.IP0 &IP0 TO HTAB 11 f VTAB 13 
: PRINT T*: NORMAL ! GOSUB 320: GO 
SUB 860 

130 HOME : PRINT D*"BRUN IPO.C 4 : CALL 
768 r HGR s HCOLOR* 3: HTAB i- VTAB 
22: PRINT ■ ON TRACE DEUX RECTANG 
LES OUELCONQUES. . 

140 FOR I = 1 TO 10 t HPLOT 80,80 + I T 
150.80 + I: NEXT i FOR I = 1 TO 
10: HPLOT 70,100 + I TO 170.100 ♦ 
I J NEXT 

150 GOSUB 320: HTAB Is VTAB 22: PRINT 
"PUIS DES DROITES PARALELLES AVEC 
1 HPLOT' " 

157 : 

159 REM »####**#*#*#*#o#M-**#*#o#«M 

160 REM » HPLOT NORMAL H 

161 REM 

162 : 

170 FOR J = I TO 6i FOR I = 50 TO 150: 
HPLOT 4 + IJ ♦ J * 2: NEXT ! NEX 

T 

180 GOSUB 320: HTAB l: VTAB 22: INVERS 
E : PRINT " & IPO ENTRE 

EN JEU "t NORMAL i GOSUB 

320 i CALL 834: HTAB ti VTAB 22: P 
R1NT "L'EFFET DlMENSIONNEL EST £V[ 
DENT.,. 

188 : 

18** REM ••o»##»**#***#"<#«#«»«*#**#**« 
1«>0 PEM » B, IPO I 

191 REM #«**#•#«#*##**-*******■*•****** 

192 : 

200 GOSUB 210: GOTO 220 
210 POR J = 1 TO 6: FOR I = 50 TO 150: 
& IPOI + 30.1 + J ■ 2: NEXT t NEX 
T : RETURN 
220 GOSUB 320: HTAB U VTAB 22: PRINT 
LE NECANISME EST SIMPLE- , . 

228 : 



229 REM 

230 REM I AN I ME * 

231 REM 

232 t 

240 GOSUB 250: GOTO 260 
250 FOR J = 1 TO 6: FOR I = 50 TO 150: 
S. IPOI + 60.1 ♦ J # 35 NEXT : NEX 

T : RETURN 
260 GOSUB 320! HTAB I: VTAB 22: PRINT 

* IL PERMET DES PETITES ANIMATION 

S " 

270 FOR J ■ 1 TO 6: FOR I = 50 TO 150: 
& IPOI * 60.1: NEXT I NEXT 

278 : 

279 REM •#**#***#*M##*#*********»>i**** 

280 REM » EFFACEMENT • 

281 REM o«»***##*#a**«ftM««*-*»***««#« 

282 8 

290 GOSUB 320: PRINT ! VTAB 22: PRINT 
BON ... 1 L EST TEMPS D'EFFAC 
ER! "i PRINT G*;: GOSUB 210: 

GOSUB 250: HOME ? PRINT G*G*GS: HT 
AB 1: VTAB 22: INVERSE ! PRINT ' E 
T MAINTENANT. PLACE A L' ART, . .GAST 
ON *J GOSUB 320: NORMAL 

300 GOTO 340 

308 : 

309 REM »«»!!*#**#*»#•«#*#*****•***■**•* 

310 REM » SP.IPO ZZZ * 

311 REM **i*»#*M*«*##****#»*»*»*»*»**« 

312 : 

320 FOR 3 = 1 TO 2000: NEXT t FOR I = 
1 TO 2Q:B = PEEK ( - 16336): NEXT 
: RETURN 

328 : 

32*? REM *#**«##**t***»#*##"***«****M» 

330 REM • ART. GASTON AVEC & IPO TO * 

331 REM •#*##**#»#**#»#*****»«******** 

332 : 

340 HOME :0C = 1 : CALL 768: HGR2 : CAL 

L 791: CALL 769 
350 FOR X = 5 TO 250 STEP X 
36Q GOSUB 430 

370 IF OC ■ 1 THEN HPLOT X.lOO TO 100, 
Y 

390 IF OC = 2 THEN HPLOT 104, Y: & IPO 

TO X.102 
390 NEXT X 

400 OC = OC + If GOSUB 700? IF OC = 3 

THEN 470 
410 GOTO 350 

418 : 

419 REM 



GUY-HACHETTE 



420 REM « CALCUL DES CDORDONNEES h 

421 REM #MI»#*#Ot#t»***IJ##«#*##*###»## 

422 : 

430 Y * 3.14 i X • 2 
440 Y ■ Y / 1100 
450 RETURN 

458 : 

459 REM *#*#**#***##■##*#•######»#«*## 

460 REM * DESSIN ALEATOIRE * 

461 PEM ft#-*»«a#*tt«w«aft«#«Mtt#«*«#**«*#« 

462 £ 

470 AI = 30:61 ■ 160: GOSUB 600; GOSUB 
600 

480 Y = 130 ;Z = 90 
490 FOR I - I TO 100 
500 GOSUB 550 
510 HPLOT Y,Z 
520 & IPO TO A.B 
530 NEXT 

540 GOSUB 700: GOSUB 720 t GOTO SBO 
550 A = INT < RND (120) « 100) 4 160 
560 B = INT < RND (120) * 100) + 20 
570 RETURN 

580 HOKE s CALL 768s HGR : KTAB 10: VT 
AB 22: PRINT "AU REVOIR..."* FOR J 
■ 1 TO 1000 t GOSUB 590: POKE 855, 
AI: POKE 856, BI: CALL 834: NEXT : 
ONERR GOTO 730 

590 GOSUB 650 

600 FOR I = AI TO BI 

610 HPLOT AI + 50.] 

620 & IPO TO BI ♦ 50,1 

630 NEXT 

640 RETURN 

650 AI = INT (( RND (1) # 1000) t 7) 
660 BI ■ INT < ( RND ( 1 ) * 1000) / 4) 
668 : 

670 IF BI < AI THEN 650 
680 IF BI > 170 THEN 650 
690 RETURN 

700 FOR P = 1 TO 2000: NEXT i FOR P = 
1 TO 10:B = PEEK < - 16336): NEXT 
: RETURN 

708 : 

709 REN »M*«Kttii*»*ft«»«**««##-«!*»*#*#«*« 

710 REM * FEU D'ARTIFICES • 

711 REM **##*###*#*#**#**#*#*####*#o# 

712 ; 

720 DIM A(3Q).B<30)r CALL 768: HGR2 ! 
CALL 768 t HCOLOR* 3: FOR I = 1 TO 
8: FOR B = J TO 3:U = PEEK ( - 163 
3g)t NEXT ? GOSUB 780: FOR J = 179 
TO Y STEP - 2: HPLOT X.J: IF I < 



4 THEN FOR P = 1 TO 20: NEXT 
730 NEXT : GOSUB 740: NEXT : FOR P = 1 
TO 800: NEXT s CALL 768: HGR ! RE 
TURN 

740 P = 0: FOR P = 1 TO 8rB = PEEK ( - 
16336): NEXT : FOR K * I TO 20: G 
OSUB 820: HPLOT X.Y: & IPO TO ACK) 
,B(K): FOR U = 1 TO 2:B = PEEK ( - 
16336): NEXT t FOR U = 1 TO INT < 
RND f 1 > # 20) r NEXT : NEXT 
750 IP I < 3 THEN HC0LOR= 0: FOR J = 1 
79 TO Y STEP - 2: HPLOT X.J: NEXT 
i FOR K ■ I TO 20: HPLOT X.Y TO A( 
K),B(K): NEXT r HCOLOR^ 3 
760 RETURN 

768 i 

769 REM #Mft«t«#ft«*tfR«M«it«iift«ff)t*)(#N»«**w 

770 REM « RND fECRAN) * 

771 REM #■*•#««#**##*#*««#*#•**#****#« 

772 i 

780 X = INT ( RND (1) * 1000) / 4sY * 
INT ( RND (1) * 1000) / 5: IF X < 
30 OR X > 250 THEN 780 

790 IF Y < 10 OR Y > 80 THEN 780 

800 RETURN 

808 : 

809 REM #«#>#oo#*#»#t»#*M#*MB*##»#ii 

810 REM # RND CECLATE) # 

811 REM «*ftMttNM»»*«MftM««*««HttHK*«tt*«a 

812 : 

820 A<K) = INT (U RND (1) « 1000) / 8 
> * X - 30):B(K) = INT <(( RND (1> 
* 1000) / 14) + Y - 30): IF A<K> 
< 1 OR A(K) > 279 THEN 820 

830 IF B(K) < 1 OR B(K) > ISO THEN 820 

840 RETURN 

848 I 

849 REM #*####•#*######*#•#####*##»#•• 

850 REM * ROUTINE CLEARHGR.SON » 

851 REM ##M##*#»tt###M*#*#M*M#«#B#*# 

852 : 

860 FOR ADR = 768 TO 856: READ CODE: P 
OKE ADR. CODE: NEXT : RETURN 

870 DATA 169,32,133,7,169,0.133,6,162, 
64. 160, 0,145. 6. 136, 208*251 ,230.7.2 
02.208,244.96.169,32.133,7.169,0,1 
33.6,169.255.162,64.160,0.145,6.72 
,138 

880 DATA 72.32.57,3,104,170.104.136,20 
8>242, 230. 7. 202, 208, 235. 96. 162,21, 
173,48,192.202.208.250,96,173,48,1 
*>2.1 36.208,5.206,88,3.240,9.202,20 
8,24S t l74.87,3,76,66,3,96.0.0 ^ 
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IPO 



Si vous 

ne possedez 

pas d'assembleur, 

ne tape? que 

ces codes : 



6000 s 




4C 




6002: 


r>ri 


tb 


03 


6005: 


A9 






6007i 


8D 


re 


03 


600 ft: 


A9 


60 




60 0C; 


BD 


F7 


03 


600Ft 


60 






60103 


A9 


33 




6012s 


85 


06 




6014: 


A9 


60 




6016: 


85 


07 




6018 = 


A5 


B8 




601 A: 


48 






601B: 


AS 


B9 




60 ID: 


48 






601E: 


AO 


00 




6020: 


20 


B7 


00 


6023} 


D1 


06 




6025.' 


F0 


01 




6027i 


60 






6026: 


C8 






6029: 


IT] 


03 




6028: 


F0 


09 




602D: 


20 


Bl 


00 


6030: 


AC 


23 


60 



2 


INDEK 


EQJ 


*6 


;Paur coiSes ASCII 


3 


vARCOUl 


EQU 




; Van sot* couiffur 


4 


POSHB 


EQU 


SI V 


T LOOT - nor l zoti tale 


5 


Anpl IE1 


r.UU 


91A 




6 


POSV 


r.'JU 




; i^oor i vert \ ca i s 


? 


HC0L0R1 


EOU 


SIC 


■ var*en r one 1 10*1 ae ta nnftoA. 


o 


M n p. Of 

nBASL 






sftaresse ou point nuK 


mm 

9 


' 1U 1 ■ " 1 t ' 

HtfASK 


prif t 

EQU 


$30 


; octet masque Dii/point 


10 


CHRGET 




$Bt 


;Pour acqu4*rJr prochaln carac. 


11 


CHRGOT 


fin* ■ 

EOU 


*B7 


:au curseur. 


12 


TXTPTR 


EOU 


9B8 


^Adresse cm aernier CirdCT.erv. 


13 


HCOLOR0 


EQU 


*E4 


{Code coulffixr point 


14 


AMPERV 


EG I 1 


*3F5 


;Vecttur i 


15 


HPOSN 


ECU 


*F41 1 


scaJcuj position point 


16 


HFNS 


EOU 


*t6B9 


*Trflnspo3© x*> am al 


17 




ORG 


*£ pin a 


# npre3 ICS pdycS tlvjr. 


16 










* si 


* Vector i sat i 


on & 




20 










21 


DEBUT 


LDA 


f*4C 


: JHP 


22 




STA 


AMPEkV 


;sur 1* programme LM . 


23 




LDA 


£<IP0AMP 




24 




STA 


AMPERV+1 




25 




LDA 


£>IPOAMP 




26 




STA 


AMPEKV+2 




27 




RTS 




IffiVCQUr Oe DKvN OU UflUL 


28 










29 


1P0AMP 


LDA 


f<ASCIP0 


•La table ASCII est lue 


30 




STA 


INDEX 


;en index. 


31 




LDA 


£>ASCIP0 




32 




STA 


INDEXH 




33 










34 


* Conserver fss pointeurs 


35 










36 




LDA 


TXTPTR 


;Pour revenar A 1 ' interpreter 


3? 




PHA 




; BASIC au bon endrolt. 


3© 




LDA 


TXTPTR +1 




39 




PHA 






40 




LDY 


£0 




41 




JSP 


CHRGOT 


;Lecture au caraet*re apres & 


42 










43 


* Test 


ds 1 ' instruction 


& IPO 


44 










45 


TEST 


CMP 


( INDEX). Y 


iComparons- le avec la table? 


46 




p.p.:] 


SUIT 


t. . -e' est bon -> SUIT 


47 




PTS 




;Ce n'est pas pour nous. 


48 


SUIT 


18? 




;Pour paaser 4 la lettre 


49 




CPY 


£3 


jsujvante sauf 91 3e. 


50 




BEO 


PARAMS 




51 




JSP 


CHRGET 


s Lecture du code 


52 
53 




JMP 


TEST 


set compare encore. 



4 
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6033; 49 50 4F 



6C36: 
6039: 
60 3B: 
603D; 68 
603Es 
603F: 



20 B- 00 
C9 CI 
F0 34 



68 

20 B9 F6 



6042t 86 19 
6044: 84 1A 
6046: 85 ] B 



6048: 
60 4A: 
604C: 
604F: 
6051: 
6053: 
6055: 
6058: 
605A: 
60 5C: 
605E: 
6060: 



A5 E4 
85 08 
20 61 
DO 07 
A9 00 
85 E4 
20 61 
51 26 
91 26 
A3 08 
85 E4 
60 



60 



60 



606Jt A6 19 
6063* A4 I A 
6065? A5 IB 
6067x 20 II F4 
60 6A: A5 IC 
606C: 5! 26 
606Et 25 30 
6070: 60 



54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 



# Table ASCII 
ASCIFO ASC 'IPO' 

# Paremetrea f one t ions 

PARAHS JSR CHRGET 

['-'MP £*C! 

BEQ 1P0T0 
PLA 
PLA 

JSR HFNS 

STX POSHB 

STY POSHH 

STA POSV 

# & IPO 

IPO LDA HCOLORO 

STA VARCOUL 

JSR ADRPLOT 

BKE NOCHANG 

CHANG LDA fO 

STA HCOLORO 

JSR ADRPLOT 

NOCHANG EOR (HBASD.Y 

STA <HBASL>,Y 

LDA VARCOUL 

STA HCOLORO 
RTS 



86 ADRPLOT LDX POSHB 



87 
88 
89 
90 
91 
92 
93 



LDY POSHH 

LDA POSV 

JSR HPOSN 

LDA HCOLOR1 

EOR (HBASL) ,Y 

AND HMASK 
RTS 



: Lecture du code 

;est-ce TO ? 

;0ul : f one t ion 8. IPO TO 



:II faut lire les parametres 
;et lea transferer. 



;II faut conaerver la eouleur 
;pour la restituer en cas de 
schangeraent 

(Couleur noire pour tracer 
;aur une zone deja oesslnee 



;Dess!n du point apres masques 
;aucceasif s. 

;Retabilr la couleur d' entree 
;Retour principal 

;Coordonnees ecran HGR pour 
sle SP 'HPOSN'' 

;0n calcule I'adreaae en fonction 
:ctes coordonnees 'PQS'* 
; Masque de couleur 
; Masque du bit/point 
:bas les masques! 



95 * S, IPO TO (voir codes IPO.O 
96 

97 IPOT0 EQU # 



SUITE ET FIN A.U VERSO 4> 



Table des symboles 

-ADRPLOT. . .$6061 

-CHRGET $00BI 

-HCOLORO. . .$QQE4 

-HPOSN *F411 

-IPOTO $6071 

-POSHH SOOIA 

-TXTPTR #G0B8 



ordre alphabetique 



-AMPERV. . 


. ,*03F5 


-CHRGOT. . 


. ,*00B7 


-HCOLOR1 . 


. ,*001C 


-INDEX... 


. .*00 06 


-NOCHANG. 


. ,*6058 


-POSV 


. , *0Q IB 


-VARCOUL. 


. ,»0008 



-ASCIPO S6033 

? -DEBUT *6000 

-HFNS . .*F6B9 

? -IPO. ..... .46048 

-PARAHS *6036 

-SUIT S6028 



? -CHANG *6051 

-HBASL SO 026 

-HMASK *0030 

-IPOAMP »6010 

-POSHB *00 19 

-TEST. , *6023 



TREMPUN MICHO 



IPO TO 



Suite et fin de la routine IPO en longage 
machine, Cette partie n'est qu'une transpo- 
sition modifies de HLINE... d'ou ('absence 
du programme source (lequel exigerait 
d'alileurs plusieurs pages), 

*4071 , AlFi 



6971- 

w v r * 


68 


68 


28 


Bl 




28 


Bv 






F 6 


B4 


9D 


i i _ 


8A 


A 6 


9D 


20 


6080- 


54 


61 


68 


18 


23 


A5 


30 


4A 


6888- 

WW w 1 


88 


85 


49 


C0 


85 


30 


68 


88 


6890- 


18 


02 


A0 


27 


A9 


C8 


85 


38 


60 98- 

•w W t W" 


84 


E5 


A5 


1 C 


0A 


C9 


ce 


18 


60A0- 


06 


A5 


1C 


49 


7F 


85 


IC 


60 


60A8- 


A5 


38 


8A 


49 


80 


38 


DD 


A9 


60B8- 


81 


C8 


ce 


28 


98 


E0 


A8 


88 


60B8- 


Be 


DC 


18 


A5 


Dl 


29 


04 


F8 


60C8- 


21 


A? 


7F 


25 


38 


31 


26 


D 


60C8- 


1? 


E6 


EA 


A9 


7F 


25 


30 


10 


60D0- 


1 1 


18 


AS 


Dl 


29 


04 


F0 


8A 


66D8- 


Bl 


26 


45 


IC 


25 


38 


D0 


02 


68EB- 


E6 


EA 


AS 


Dl 


65 


D3 


29 


8 J 


60E8- 


C9 


02 


6A 


88 


96 


38 


38 


18 


68F8- 


A5 


27 


2C 


B9 


F5 


Dfl 


22 


86 


68F8- 


26 


B8 


1A 


2C 


CD 


FA 


F0 


05 


6180- 


6? 


IF 


38 


B0 


12 


69 


23 


48 


6188- 


A5 


26 


69 


B8 


B0 


82 


69 


F8 


61 18- 


85 


26 


68 


80 


82 


69 


1 F 


66 


61 18- 


26 


69 


FC 


85 


27 


68 


1 8 


AS 


6128- 


27 


69 


84 


2C 


B9 


F5 


D8 


F3 



6128- 


06 


26 


90 


18 


69 


E8 


18 


2C 


6130- 


08 


F5 


F0 


12 


A5 


26 


69 


58 


6138- 


49 


F0 


F0 


02 


49 


Fe 


85 


26 


6140- 


AS 


E6 


90 


02 


69 


E8 


66 


26 


6148- 


98 


Dl 


48 


A9 


08 


85 


E8 


85 


6150- 


El 


85 


E2 


68 


48 


38 


E5 


E8 


6158- 


48 


8A 


E5 


El 


85 


03 


BB 


eA 


6160- 


68 


49 


FF 


69 


1 


48 


A9 


88 


6168- 


E5 


03 


85 


01 


85 


05 


68 


85 


6170- 


D0 


85 


D4 


68 


85 


E0 


86 


El 


6178- 


98 


18 


E5 


E2 


90 


04 


49 


FF 


6188- 


69 


FE 


85 


D2 


84 


E2 


66 


D3 


6188- 


38 


E5 


08 


AA 


A9 


FF 


E5 


Dl 


6198- 


85 


ID 


A4 


E5 


80 


05 


0A 


28 


6198- 


83 


68 


38 


A5 


Dl 


65 


02 


85 


61A8- 


D4 


A5 


D5 


E9 


00 


9j 


r- . r - 


48 


61A8- 


8A 


48 


98 


48 


08 


28 


D2 


61 


6iBe- 


28 


68 


A8 


68 


AA 


68 


E8 


D8 


61 B8- 


B4 


E6 


ID 


F0 


1 4 


AS 


03 


88 


61 ce- 


D5 


28 


ED 


60 


18 


A5 


D4 


65 


61C8- 


De 


85 


04 


A5 


05 


65 


Dl 


58 


61D0- 


D4 


68 


A5 


E4 


85 


08 


20 


E8 


6108- 


61 


D8 


07 


A9 


00 


85 


E4 


20 


61E8- 


E8 


61 


51 


26 


91 


26 


A5 


88 


61E8- 


85 


E4 


60 


A5 


E4 


51 


26 


25 


61F0- 


38 


68 















Apres CTRL-C ou RESET, souvez fe tout (IPO 
+ IPO TO) ; BSAVE IPO.C. A$60OB, L$lf2 

VERIFICATION : 

T = : FOR I - 24576 TO 24575 + 498 : T = 
T + PEEK(I) : NEXT t PRINT T 
RESUITAT : 58634 



~ | Pour connaTtre I adresse a laquel le vient 
ADRESSES UTILES d'etre charge un fichter bfnaire, inlerrogez 
I te DOS (ou Pro DOS) par J 

• PRINT PEEK(43634) + PEEK{43635) * 256 (DOS) 

• PRINT FEEK{48825) + PEEK(48826} • 256 (PrpDOS) 

Vous connattrez fa longueur (decimole) du f tchier par : 

• PRINTPEEK(43616) + PEEK{43617) * 256 (DOS) 

• PRINT PEEK (48840) 4- PEEK {48841 )* 256 (ProDOS) 

AMPERSAND {S3F5.3F6.3F7) 

On installer lea vecteurs par trois pokes (1013.X : 1014,X : 1015, X). Alnsi, si 
vous tapez POKE 1013,76 i POKE 1074,165 : POKE 1015,214, il vous suffira 
de toper & (+ return) pour lister votre programme. 




I 



GUV-HACMETTE 



AMU5ETTE 



DOS 34. 



ProDOS 



LETTRES EN PLUIE 



U OUS ne trouvez pas un peu tfiste de taper "HOME" dans un programme basic ? tout 
* s'efface d'un coup, vous laissant face a un grand ecran vide... 

Void un programme pour les nostaJgrques de I'effacement progressif. Chargez le pro- 
gramme par PRINT CHR$ (4);"BLOAD PLUIE", Lorsque vous voudrez effacer I'ecran, vous 
taperez CALL 768, les lettres sembleront tomber du cieJ ! 



1 

2 



Si vous ne 
possddez pas 
d'assembleur, 
lapoz seulement 
les codes, 
apres un 
CALL— 151 : 



300 ; 


AS 


22 


302 : 


48 




303 : 


A9 


00 


305 : 


A2 


DO 


307 : 


85 


06 


309 : 


86 


07 


306 t 


AO 


00 


300 ! 


E6 


06 


30F | 


DO 


02 


on ; 


E6 


07 


313 ; 


A5 


4E 


315 • 


71 


06 


317 : 


C8 




318 : 


85 


4E 


31A : 


38 




31B : 


E5 


21 


3ID : 


80 


F9 


31F : 


A5 


4F 


321 r 


18 




322 : 


71 


Gf6 


324 : 


18 





a 
J 










J 1 Cl 1 MTC 1 ID 

rUIN 1 fcUK 




>Qo 


Dans la RGftl pour NB aleoioire 


5 


WNDLFT 






rviorge wAULnt 


6 


TV 111 IV V ¥ u I n 




>J 1 


1 A Dr L 1 1 L i . "i 


7 

r 


WNDTClP 






nAu i ae id TenGrfe 


o 


tv nuo i nn 


ttju 


r ■) 'i 


□ AC J— I _ J _____ ■ j _ _ 

□ AS de la lenetr o 


9 

r 


C H 


C '_j 'J 




twUrs&ur niwJKliUnf I ML 












1 1 


BASL 


i r "i i i 




Ad kis s© de la LFGNE courante 


1 5 




CAI I 
L '_»' U 




wo mo re oieoioire 




ROAA 




■? U L. L 


r rami pro aar95.se- BASiC 


1 £ 

15 
16 
17 


* 






Deplace le curseur en CV 


* 


ORG 




Appelo par CALL 768 


18 


PLUIE 


EQL 


■ 




19 




LDA 


WNDTOP 


On sOLive \e haul de lo fon^tra 


20 




PHA 




. .-*n I'empilant 


21 




LDA 


£ < ROM 


On cr^e un polniour (dans la 


22 




LDX 


£ * ROM 


...tom les valeurs Irouvees 


23 




STA 


POINTEUR 


serviranf de nomfare aleaioire) 


24 




!, i >; 


POINTEUR + 1 




25 


* 








26 




LDY 


£%0Q 




27 


INCPQ 


INC 


POINTEUR 


Incr^menlo <n pointeur 


28 




BNE 


LOOP 


HSB et LSB des nontbres 


29 




INC 


POINTEUR + 1 




30 


■ 








31 


LOOP 


LDA 


RNDL 


Creation du nombj 1 * ol^ofoire 


33 




ADC 


(POINTEUR),Y 






INY 




r ,.ovec val«tif& prises en ROM 


34 


AGAINO 


STA 


RNDL 


Stocke 


35 




sec 




..-ovant soustroction 


36 




SBC 


WNOWDTH 


dans la fenetre 


37 




BCS 


AGAINO 


Nan : on sou^iroli 


38 




LDA 


RNDL -HI 


...deuxieme alealoire 


39 




CLC 




Avonl addilion 


40 




ADC 


(POlNTEUR) r Y 




41 


AGAIN! 


CLC 


r 


Avanl addlllon 



TREWPLIM MICRO 



325 . 


65 


22 


42 


ADC 


WNDTOP j 


...hour dof*n*tf* 


327 ! 


65 


4F 


43 


STA 


RNDL-fl 


stock A 


329 . 


36 




44 


SEC 




dons fenetre 


32A ; 


E5 


23 


45 


SBC 


WNDBTAA 


32C ; 


BO 


F6 


46 


BCS 


AGAIN 1 ; 


Non ? 


32E : 


A4 


4E 


47 


LDY 


RNOl 


Recupere 


330 i 


84 


24 


48 


STY 


CH ; 


. rr colonne 


332 ; 


A5 


•11 


49 


LDA 


RNOL + 1 


ligne 


334 


C5 


22 


50 


CMP 


WNDTOP ; 


dans la fen&tre 


336 . 


90 


EC 


51 


BCC 


AGAINl 


Non ? 


338 5 


85 


25 


52 


STA 


CV 




33A : 


20 


22 FC 


53 


JSR 


VTAS 


Qui posiiionnfc BASL BASH 


33D ; 


Bl 


28 


54 


IDA 


(baslj.y 


CcKOdere 


33F : 


C9 


AO 


55 


CMP 


£" " 


Un ©space ? 


341 ; 


FO 


16 


56 


8EO 


E SPACE 


Oui ? 


343 : 


48 




57 


PHA 




On sau*e te caractcre 


344 ; 


A9 


AS 


58 


LOA 


£-, .. 


On 1 'efface de Pecron 


346 : 


9} 


26 


59 


STA 


{BASL) P Y 


...en ikr Ivont espoce 


348 


A5 


25 


60 


LDA 


CV 


Lfcgne 


34A : 


C9 


17 


61 


CMP 


£S17 


Lo d*rni£re ? 


34C : 


90 


03 


62 


BCC 


FINECRAN 


Oui on posse ligne sutvante 


34E ; 


68 




63 


PLA 




S-auve le numero de llgne 


34F : 


BO 


OB 


64 


BCS 


ESPACE 


On va en prcmifcr* colon ne 


351 ; 


E6 


25 


65 FINECRAN 


INC 


CV 


Ltgne sutvanfe 



353 : 


20 


22 


FC 


66 


356 : 


68 






67 


357 : 


91 


28 




68 


359 : 


AO 


00 




69 


35B : 


84 


24 




70 


35D : 


AS 


22 




71 


35F : 


85 


25 




72 


361 : 


20 


22 


FC 


73 


364 : 


Bl 


28 




74 


366 : 


C9 


AO 




75 


366 ; 


DO 


A3 




76 


36A : 


CB 






77 


36B : 


C4 


21 




78 


36D ! 


90 


F5 




79 


36F : 


E6 


22 




BO 


371 . 


AS 


22 




81 


373 t 


C5 


23 




82 


375 5 


90 


6? 




83 


377 : 


68 






84 


378 : 


85 


22 




85 


37A : 


60 






56 

87 



PIUIE 



JSR 

PIA 

STA 

I DY 

5TY 

LDA 

STA 

JSR 

LDA 

CMP 

BNE 

INY 

CPY 

BCC 

INC 

LDA 

CMP 

BCC 

PLA 

STA 

RTS 



VTAB 

(BASL).Y 

£$03 

CM 

WNDTOP 

CV 

VTAB 

(BASLJ.Y 

£" " 

INCPO 

WNDWDTH 

CHERCHE 

WNDTOP 

WNDTOP 

WNDBTAA 

ESPACE 

WNDTOP 



PosJtionne BASL BASH 

Recup&r? le corad&re 

On Peer it unc llgne plus bas 

D&bul de ligne 

On reclw-che un caractere 

Haut de tenfitre 

En currour ver Heal 

Pashloane BASL BASH 

Prend caroc^e 

Est-ce un espoce ? 

Non 2 prochatn oleatorre 

Gufc, on increment 

= 6 lo lorgeur ? 

Nan : on coniiriufc lo recherche 

Termini pour haut tenitre 

Ricupere haut de f en£tre 

Corn pore haut et bas d* tenitre 

< an continue ? 

Sinon termine. on r6cup&re 

...position de haut d« f empire 

Retour au Baste 



saisee-cqntrOle 1 



Si vou5 etes neophyte, tapez CAL1 — 1 Si B 
puis return. Ensuite, en 40 cofonnes, tope* 
fes vqleurs ci-canfre. 

Pour te rminer : BSAVE PLUIEX, A$308. L$7B 
VERIFICATION : 

T=Q ; FOR I - 768 TO 890 ; T - T + PEEK(I) : 
NEXT PRINT T R*sultat : 14077 



300 : A5 22 48 A9 90 A? 00 85 06 86 07 AO 
00 E6 06 DO 02 E6 07 AS 4E 71 06 CB 85 

4E 38 E5 21 80 F9 A5 4F 18 71 06 18 65 22 
83 4f 38 E5 23 B0 F6 A4 4E 24 A5 4F 

C5 22 90 EC 85 2S 20 22 FC Bl 28 C9 AO 
FO 16 48 A9 AO 91 28 A5 25 C9 17 90 03 

68 BO 08 RETURN 

351 : E6 25 20 22 FC 68 91 28 AO 00 B4 24 
AS 22 85 25 20 22 FC Bl 28 C9 AO DO A3 

C8 C4 21 90 F5 E6 22 AS 22 C5 23 90 62 
68 BS 22 60 RETURN 

CTRL-Cef RETURN 



TO 



GUY-HACHETTT 



Votre bibliotheque 

INFORMATIQUE • par Cement RENARD 



Hi 



LE5 BEST-SELLERS 




* MS-DOS FACILE (Marabout) 

Je sals : vous ne disposez que 
d un modiste ordinateur person- 
nel 8 bits, el j'ai l air de reiourner 
I* ler dons la plaie en vous par- 
loot (oh I pas trop souvont ! ) 
de* machines travadlant sur 16 
bits. Mais &lles existent... el 
votre prochain Apple oura cetle 
inestimable quo I ire. 

Fout-il voir, dans le MS-DOS, 
com me llyo Virgatchik, auteur de 
co nouveou Marabout-Service, 
"un sysleme d'ex pi citation de 
seconds g£n£rolion. en quelquo 
sorte I'heritier du CP/M" ? 
Surement. puisqu'ij est 
aufourd'hui , pour les ordinateurs 
1 6 bits, le seul vrai standard . le 
triomphe de Microsoft e1 d'JBM 
(en eflet, PC-DOS et MS-DOS, 
mom&tombat I }. 

II taut lire MS-DOS FACILE, ne 
serai t-ce que pour le comparer 
ou ProD05 d'Appie. On consta- 
tero que le* deux syatAmes com- 
portwif de nombreux points com- 
mun», nrfime $< ProDOS, mais 
e'es! tool 6 son honneur, fourne 

iBiMMNMUinUIHUIIIffHIIIMJ 

TREJVlPilN MICRO 



sur une mochine dune autre 
generation (n'accablons pas les 
"anelens", surtoul quand lis on1 
joue Imminent role de defri- 
cheurs !|. Personne Demerit, foi 
parcouru ce petit guide avec 
int*r*t el j'ovoue avoir un foible 
pour lo presenilation des outra- 
ges d'une collection ou tltre 
ambitieux : les Best-sellers de 
Hnformafique", 
Tout un programme I 

• GRAPHISME SOENTfFiQUE 

(Masson) 

Un livre fctfrieux dons une collec- 
tion destinii 6 des lecieurs sftju- 
dieux ; "M<§-thode + Program- 
mes", Le sujei eludie ici est 
ambitieux : le grophi&me sclent]- 
frque sur miero-ordrnateur (de to 
2" 6 lo 3* dimension). 

Dons cette troisl&me <kJllion, 
revue e1 carrig&e, Robert Dony 
s'adre&se a fous les pos*«sseurs 
d un ordinateur personnel ayant 
des po&slbllluta grrjrphiques, avec 
50 opplkallons r^solues en 
Basic, ©1 i#stee$ sur Apple H et 
Wang 22Q4J, 

J aurais aim^ publler ici. non pas 
t une de ces 50 rd urines, mais 
une s^ledlon des graphiques 
dont ce rnonuel est bourre, mais 
je pref&re vous tanseiller de les 
decouvrir vauvmeme, devant 
votre Apple. 

Ne vous attendee pos £ une suc- 
cession de programmes illus- 
tr6s... 6 recopler sans y at tocher 
ou tremen I d'impartance \ mais 
bien 6 des "applications" longue- 
ment et rninutieu*emont expli- 
quees {de sal ides conrtaissonces 
mathemotiques ne sont pas inuti 
les quond on desire vroiment 
firor profit d'un livre comme 
celui-ci). Ceta etant, personne ne 

vous obligera 6 toul lire et les 
programmes peuvent evidem- 



ment se suffire a eux-m4me*. 
L'outeur espere que cette nou* 
velle edition est deiinitivement 
expurgee des quelques coquilles 
et erreurs des deux precedent**. 
A vous de lui prouver i© con- 
traire : je suks persuode qu'il 
vous en saura gre Cesl ainsi 
que Ion avance... dans notre 
petit monde de linformatique ! 

» LE LANG AGE MACHINE 
SUR VOTRE APPLE Ite 
>tntcr Editions! 

L'outeur est Graham Keeler, pro- 
iesseur a ('University de SoMord 
(Grande-Bretagne), M est traduit 
par Phong Tuon Nghiem. 
L'auvrage constitue une bonne 
introdudion au langag^ machine 
d© I'Apple et d Torchitecture du 
6502, mais il va plus loin en se 
rtvitant accessible au profane. 

L'initiotlon est meaee ronde- 
rnent, mois surement. De plus, 
en annexe, l'outeur fournit les 
solutions des exercices choisis {b 
noter quune disquette, cante- 
nant routes les routines du livre, 
peul Gtre vendue separement), 



INTER.MICRO 



LE LANCACE 
MACHINE 




T1TRE DOUBLE FDRMftT 
TREMPLIN MICRO 





Caracteres geants 
sur votre 

imprimante Apple 



Ces titres n'ont pas et£ agrandis et vous 
obtiendrez les m&mes (sur DMP et 
I MAGE WRITER I et II), a parti r de la 
fonte que nous vous proposons. 

Quant aux caracteres en 
mode inverse, lisez un peu 
plus loin... 

et mettez votre imprimante 
a contribution ! 
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GUY-H ACH£TT£ 



Com ment obtenir des titres 
en double ha uteur (16 bits) ? 

tl est indispensable, dons un premier temps, de concevoir 
une lonte sp^ciale dont chaque lettre utilise deux caractk- 
re*. Dans eelle que je vous propose (CARACDOUBLE), la 
minuscule de chaque caractere seri de code d la partie 
superieure de la lettre "doubJe format" et la majuscule est 
le code de la partie rnterieur e. 

Ainsi pour obtenir "TOTO", an tapera s PRINT "tota" ; PRINT 
TOTO", Nature! lament, il foul d4finir un interlignage de 8 
pH : CHR$ (27)"Ta8'\ 

Vous comprenez pourquoi CARAC. DOUBLE ne comporte que 
des. caprtales. 

Avec le programme CARAC. 1 ,0 de notre precedent numero, 
la composition d'une telle tonte ne pose oucun problem©, 

CHAKGEMENT : 

Non mains facife por le truchement de CARAC.CHARG 
{Tremplin Micro n°6). 

Quant 6 la demonstration, la void. Vous pourrez essay er les 
difterentes possibility que vous off re I* IMAGE WRITER, font 
en mode expanse qu r en mode normol (essay ez avec 
E$CAPE*'N'\ "EV'q". "Q",*tc.)- 



CARAC DBLE DEMO 

iae PRINT CHR* (4>*PR£1* 
110 PRINT CHR* (27) ■ 1 " 
128 PRINT CHR* <27)'p" 

130 PRINT CHR* (27)' >" : REM UNI DIRECT] ONNELLE 
140 PRINT CHR* <27) , T88": REM INTERLI0NE=8 PTS 
150 PRINT CHR* <27)"*: REM CARACTERES PERSONNEL 

ises 

160 PRINT : PRINT 

170 PRINT "bonne anne*': REM PARTIE SUPERIEURE 
188 PRINT ■BONNE ANNEE* : REM PARTIE INFERIEURE 
|?8 PRINT ; PRINT 3 PRINT 
288 PRINT "titrt double format" 

218 PRINT "TITRE DOUBLE FORMAT p 1 PRINT 1 PRINT 1 
PRINT 

220 PRINT "tremplin micro* 
238 PRINT •TREMPLIN MICRO* 

248 PRINT CHR* (27)'*' ? CHR* <27)"A , i CHR* (27) 

4 CHR* (34); CHR* <27> , <* 
258 PRINT CHR* (15) 

248 PRINT CHR* <4)"PR£B" a 
TREMPLIN MICRO 



CARAC-DOUBLE 



4000- 


lfl 


2B 


IB 


49 


62 


50 


00 00 


4008- 


FF 


FF 


FF 


FF 


83 


83 


83 83 


4010- 


83 


63 


C7 


FF 


?E 


3C 


42 50 


4018- 


00 


00 


FF 


FF 


FF 


FF 


El El 


4020- 


El 


El 


El 


El 


F3 


FF 


7E 3C 


4028- 


6F 


SO 


00 


00 


FC 


FE 


FF FF 


4030- 


07 


03 


03 


03 


03 


03 


07 FF 


4038- 


FE 


FC 


4F 


50 


00 


00 


3F 7F 


4040- 


FF 


FF 


FC 


E0 


EO 


E0 


E0 E0 


4048- 


FO 


FF 


7F 


3F 


6E 


50 


00 00 


4050- 


FF 


FF 


FF 


FF 


1C 


39 


70 E0 


4058- 


CO 


80 


00 


00 


FF 


FF 


4E 50 


4060- 


00 


00 


FF 


FF 


FF 


FF 


00 00 


4068- 


00 


00 


01 


03 


07 


0E 


FF FF 


4070- 


61 


50 


00 


00 


F8 


FC 


FE FF 


4078- 


83 


83 


83 


83 


83 


83 


83 86 


4080- 


FC 


F8 


41 


50 


00 


00 


FF FF 


4088- 


FF 


FF 


03 


03 


03 


03 


03 03 


4090- 


03 


03 


FF 


FF 


65 


50 


00 00 


4098- 


FF 


FF 


FF 


FF 


83 


83 


83 83 


40JM3- 


83 


B3 


03 


03 


03 


03 


45 50 


40A8- 


00 


00 


FF 


FF 


FF 


FF 


El El 


40BO- 


El 


El 


El 


EI 


EO 


E0 


EO E0 


40 88- 


6D 


50 


00 


00 


FF 


FF 


FF FF 


40C0- 


38 


70 


E0 


CO 


E0 


70 


38 FF 


40C8- 


FF 


FF 


4D 


50 


00 


00 


FF FF 


40DO- 


FF 


FF 


00 


00 


00 


01 


00 00 


40D8- 


00 


FF 


FF 


FF 


6C 


50 


00 00 


4QE0- 


FF 


FF 


FF 


FF 


00 


00 


00 00 


40E8- 


00 


00 


00 


00 


00 


00 


4C 50 


40FO- 


00 


00 


FF 


FF 


FF 


FF 


E0 EO 


40F8- 


EO 


E0 


EO 


E0 


E0 


E0 


E0 E0 


4100- 


75 


50 


00 


00 


FF 


FF 


FF FF 


4106- 


00 


00 


00 


00 


00 


00 


00 FF 


4110- 


FF 


FF 


55 


50 


00 


00 


3F 7F 


4118- 


FF 


FF 


FO 


E0 


E0 


EO 


E0 E0 


4120- 


F0 


FF 


7F 


3F 


76 


50 


00 00 


4128- 


FF 


FF 


FF 


FF 


00 


00 


00 00 


4130- 


00 


00 


00 


FF 


FF 


FF 


56 50 


4138- 


00 


00 


03 


07 


OF 


IF 


38 70 


4140- 


EO 


E0 


60 


30 


18 


OF 


07 03 


4148- 


73 


50 


00 


00 


3C 


7E 


FF FF 


4150- 


E? 


C3 


C3 


C3 


C3 


C3 


C3 87 


4158- 


ft t" 

OE 


oc 


53 


50 


AA 

00 


00 


I A <I A 

10 30 


4160- 


70 


Fl 


El 


El 


El 


£1 


El El 


4168- 


F3 


7F 


3F 


IE 


74 


50 


00 00 


4170- 


07 


07 


07 


07 


07 


FF 


FF FF 


4178- 


FF 


07 


07 


07 


07 


07 


54 50 


4180- 


00 


00 


00 


00 


00 


00 


00 FF 


4188- 


FF 


FF 


FF 


00 


00 


00 


00 00 
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CARAC-POUBLE 

{suite et tin) 

Perrli* CD (Hout) 



C5> 



































* 

■ 


* 
- 


* 


* 
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V 






i 
• 
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Exemple (carocleres a A) 

SAUVEZ VOTRE FONTE : 

BSAVE CAR AC DOUBLE. 
A$40fl8. LS397 

VERIFICATION ; 

T = : FOR I - 163B4 TO 
17302 : T = T + PEEK0) : 
NEXT: PRINT T 
RESULT AT: 1 10921 



4 • W 


?•> 

» fa 


vW 


w w 


Mil 

w w 


FF 

• E 


FF 


FF 


FF 




P7 


E7 


F7 


FF 


7F 


3F 


68 SCI 

yw wv 


A 1 CJP 

"t 1 »u 




UW 


ww 


WW 


S3 


C3 


u r 


7F 


4?A0- 

*t£inu 


nn 


00 


FF FF 




FF 


HO Hi" 

Uv IMP 




-P 

•-■ l_ 


If 


Wfa 




00 
w w 


00 


FF 


FF 


teJWi 


nn 

Uu 


80 


80 


60 


Rn 


FF 


FF FF 


ill AR- 


FF 


FF 


03 


03 


07 


OF 


IF 


39 




49 


50 


00 


00 


FF 


FF 


FF FF 


41 BO- 


70 


EO 


CO 


80 


78 

* U 1 


50 


00 


00 


4?B8- 


03 


03 03 03 


03 

wu 


03 

%r v 


1 FF 

U'v 1- L 


41 HA- 


03 


07 


OF 


IF 


3C 




F0 


uv 




FF 


FF 


Sh 


4E 


00 


00 


00 00 


41 ffl- 


Ffl 






OF 

w I 


07 

U ' 


03 

W s* 


58 


50 

vV 


4?Pff- 


no 


00 


00 


00 


."in 


00 


FF FF 


41 PR- 


(ID 
uv 


on 

WW 


FO 

r w 


FH 


FC 


FF 

E b 


OF 


07 


'r i_ U 


PF 

C L 


FF 


4A 


4E 


wv 


00 


3F 7E 


41 nn- 


n^ 

U V 


ni 

V I 




07 


nF 


FC 

s u- 


FB 


F0 




FP 


FO 


EO 


EO 


FO 


F0 

f V 


FF FF 


d 1 Tift " 

HI 1 iJD 




47 


on 

WW 


nn 

uu 


FF 


FF 


PF 


FF 




7F 


3F 


6B 


50 


nn 


nn 


PF FF 

EE EE 


- 1 EiU 


uu 


49 


47 


uu 


nn 


71 

11 


r r 


FF 


4?FtV 


FF 

r r 


FF 


80 


80 


rn 

wv 


rn 


FO 7R 

E U IO 




L L 


VV 


70 


50 

vW 


00 

w w 


DO 


FF 

E I 


FF 


4?F0- 

lcif w 


3T 


IF OF 


07 


4D 


50 

WW 


00 00 

WW WW 


41 FIT-— 


FF 


FF 

L L 


CJ-J 




Uv 


flu 




w 


49FA- 


FF 


FF 


FF 


FF 




03 


03 07 

WW V I 


41 PR- 

111 u 


F7 


7F 


3R 

WiJ 


ir 

i Hi 1 


50 

s^w 


50 

JW 


00 


00 


430n- 


OF 


IE 3C F8 


Ff: 

L U 


FQ 

i_tU 


71 50 


H L.I- 1 1 


FF 


FF 


PF 


FF 


ni 

U J 


ni 


03 


03 




on 

uu 


00 


FC 


FE 


FF 


FF 


07 03 

U I WW 




03 


Ot 

v 4 


00 


00 


00 

u u 


00 


63 


50 


431 0- 

Wl St 


D3 

w w 


03 03 03 


07 

u r 


FF 


FE FC 




00 


00 


FC 


FF 


* 


FF 


07 

U r 


03 






50 


00 


00 


3F 


7F 


FF FF 


491 8- 


03 

V v 


'n 

w 


03 


03 


07 


IF 


IE 




4^0- 
• — 


F0 
r u 


E0 


E4 


EC 


FC 


Fft 


70 FF 


J&Sfl - 


41 

T!W 


50 

wv 




00 


3F 


7F 

1 * 


FF 

* E 


FF 


43?fl- 


VV 

£ E 


BF 


77 50 


00 


00 


pf 


4??fl- 


Ffl 






E0 

uu 


FO 


E0 


E V 


Ffl 


"vju 


FF 

rr 


FF 


00 


00 


ftn 

(Mi 


R"i 

U 1 ' 


so on 

uv uu 


1Er W 


78 


36 




50 


00 


00 

uu 


FF 

E E 


FF 




00 

w w 


FF 


FF 


FF 


57 


50 


00 00 




FF 

* * 


7 V 

■ e 


03 


03 


03 


03 

U ■— 1 


03 


3 


434A- 


OF 

u* 


IF 


3F 


7F 


F0 

ErW 


7-1 

1 V 


*'F 1 F 

VI 4 L 


4?40- 


07 


FF 


FE 


FC 


44 


50 


00 

U U 


QO 

U U 


434ft- 


3P 


70 


EO 


7F 


3F 


tF 


7*J SO 

r r WW 




FF 


rv 

it E 


FF 


FF 




E0 


EO 


EO 

UU 


4^R0- 


nn 

vw 


00 


03 


07 


OF 

U E 


IF 


3C 78 


4?^- 


FO 

i_iU 


FO 


F0 


FF 


7F 


3F 


66 


50 


*l W'W'V 


rv 


E0 


F0 


F8 


3r 


IF 


OF 07 

UL Ef r 




00 

UU 


00 

WW 




FF 


rT 

L L 


FF 


83 


63 


43fi0- 

lww 


w r 


50 


00 


00 


IE 


3F 


7F FF 

■ E 4 4 




L-Hi_' 


83 


83 

U v 


83 


03 


03 


03 


03 

W v 


43f^R- 


FO 


EO 


El 


E3 


E J 


vu 

E E 


7F 3 r 

f 4> W 




46 


50 


00 




FF 


FF 


FF 


FF 


43?n- 


!R 

4 V 


00 


7A 


50 


00 

w u 


on 

w w 


07 07 

V ■ V * 


4270- 


Ot 


01 


01 


Ql 


01 


01 


00 


00 


4378- 


07 


07 07 


07 


87 


C7 


E7 F7 


4278- 


00 


00 


67 


50 


00 


00 


FC 


FE 


4380- 


7F 


3F 


if '.;>• 


5A 


50 


00 00 


4280- 


FF 


FF 


07 


03 


03 


03 


03 


03 


4388- 


E0 


FO 


F8 


FC 


FE 


FF 


F7 F3 


4288- 


07 


IF 


IE 


1C 


47 


50 


00 


00 


4390- 


Fl 


F0 


F0 


F0 


FO 


FO 


04 


4290- 


3F 


7F 


FF 


FF 


FO 


EO 


F0 


go 
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INVERSION DE FONTE 



« U E c U M ft 




100 TEXT 3 NORMAL : ROME 

no d* = am <4> 

120 VTAB I2t INPUT 'TITRE DE LA FONTE t "sF* 

130 ONERP GOTO 100 

140 PRINT D*-BL0AD"F* B B A163B4 J 

150 L ^ PEEK (43616) + PEEK < 43617} # 256 

160 REM PR0D0S: 48840 & 48841 

► Si votr* toloMie de btanc est i gauch* , 
utilim QWACJNJI (lir« pagt 16). 

180 PRINT D$ M BL0AD CARACINV*: CALL 768 

190 F* = F* ♦ "•IHV M 

200 PRINT D* * BSAVE " Ff * A 1 6384 . L" L 

210 PRINT DVRUN CARAC.CHARG 1 



Avec CARAC } r ff (Tr€HT>pffn Micro n a A), vous dispo- 
sez d un utiiitaire qui vous p«rrnol de transformer 
Im Fonies grophiquw du TOOL KIT Apple en poli- 
ces de coroct^fes per&onnalis^. Certaines d'entre 
©lies permeH©nl de irte b»lles imprewio^s en 
mode inverse r Cesi le cas ( por exemple, do 
COLOSSAL.SET. Dun* maniAro g«n*role, il fauf ( 
au d*port r d*s coraclfcres -au«z gras e^ il est sou- 
haitnble de ne pos abuser d&s minuscules. Si VOOS 
lapez d abord ce pelit programme en basic, l ope- 
ration sera oulom ati que. . . ou presqu e I 

Attention 1 rVufili**? que del ionres obtcnu&s 6 . 
portir d» CARAC 10, — I 
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GUV-MACHETTE 



Lo routine CARAC.CHARG (T.M, n°6) 
vous permettra d© charger votre nouvell© 
fonte,. 

Vous ferez ensuite vos essais avec un 
embryon de programme ressembJont 6 
CARACJNVDEMQ (cUconlre). 

Changes tout ce que vous voudrez... suuf 
[es codes ! 

PROBLEME : CARACJNV (ct-aprds) o 
§t£ cort$u pour inverser 
des fontes dans lesquelfes te blanc (s^po- 
ronJ la lettre de la suivante) est a droite 
du caractere, ce qui est normal. 

Si vous avez con^u one fonle dans laqgelle 
vous avez p!ac£ le blaoc a gauche, utilise* 
CARACJNVQ b lo ploce de CARACJNV. 

CON5EIL : Poui oblenir de tros bora 
resultais, concevez vous- 
mime une police de coroct^res tr£s gras, 

Ploce & ('imagination... et au talent I 

Guy-HACHETTE. 



CARAC.INVDEMO 



(27) 
* ES 



100 D* = CHR* (4>:E» - CHR* 
II T* - E* + "N u + E* * "X' 

""■ + E* + 
120 TEXT : NORMAL 3 HOME 
130 PRINT WPRfl": PRINT 
HO PRINT T«: PRINT 
150 PRINT CHR* (15) 
160 PRINT " V0ICI UN TITRE * 
170 PRINT CHR* U4) 
380 PRINT " ET ON AUTRE ELARGI ■ 
190 PRINT : PRINT "On peut s'amuser: 



PRINT E«"T09- ;£»">" 

4 : PRINT L* 
AVEC UN APPLE " l PRINT L 

PRINT CHR* C15> 



200 PRINT 
210 L* = " 
220 PRINT ' 
* 

230 PRINT 
240 PRINT 'Hinuscutes decerns* i 1 1 ees ! 

250 PRINT Et'Y" iE*"*" :E» 4 CHR* (34) 

t CHR* ( 15> ;E* M <" ;E**A" 
260 PRINT D*"PR£0" ■ 



CARACJNV 



Si vous ne 
po-ssedez pas 
d'osfr&mbleur, 
tapez seufernent 
ces code* ! 



0300: 


A9 


05 


0302 - 


B5 


06 


0304; 


A9 


40 


0306: 


85 


07 


0308i 


AO 


00 


030 At 


3: 


06 


03CC: 


29 


IF 


030 Et 


F0 


04 


0310: 


C9 


11 


0312: 


90 


01 


0314: 


6G 




0315: 


Q5 


08 





1 

2 
3 
4 
5 
6 
7 
8 
■9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



# CARACINV GUY-HACHETTE 15 DECEMBRE 85 • 

# (' INVERSE UNE FONTE DE CARACTERES PERSQNNALISES) 

# Fonctionne < automat iquement) avec CARACINVBAS * 





nyG 


*300 




ADRB 


EOU 


*06 


Polnteur a dress* caractere 


AQRH 


EOU 


♦07 


Partie haute meme a dress* 


LONG 


EOU 


$08 


Longueur du caractere 


VAL 


SOU 


*09 


Stockage temporal re 




LDA 


£*05 


Adresse du premier,., 




STA 


ADRB 


...trait* (partie basse) 




LDA 


£•40 


Adresse de ce caractere. 




STA 


ADRH 


ma j s partie haute 


DEBUT 


LDY 


£*0 


dans le registre Y pour,. 




LDA 




...lecture adres. indirect 




AND 


fit 


Avec 0001 1111, *41/*61=*01 




BEO 


FIN 


SI le resultat est zero,.. 




CHP 


£*11 


,.,ou depass* 16 (points). 




BCC 


SUITE 


c'est la fin 


FIN 


RTS 






* 

SUITE 


STA 


LONG 


La longueur est sauvee. 



TREMPLIN MICRO 



CARAC.INV (suite et fin) 






031?: 


£6 


08 




26 




INC 


LONG 


■ 


p-Tt i nrr^mpn tpp rip 1 


0319! 


AO 


01 




27 




LDY 


£*01 


* 


Roue i p rip Ippturc 


Q31B; 


ai 


06 




28 


BCLE 


LDA 


<Adrb>.Y 




P r pm l ftp fic t p fc 


Q31Di 


49 


FF 




29 




EOR 


£*FF 


• 
+ 


Invprsinrt cIp la valeur 

X 1 1 V V I tj L Ul 1 \dSr 1 VP ■ W 1 V M" + 


03lFt 


38 






30 




SEC 






Pptpniip f nrr"PP A 1 


0320 1 


2A 






31 




ROL 




l 

i 




0321: 


C9 


on 




32 




CMP 


£»0D 


* 
* 


y A-t-ll f> n rian** I'arrumul 


0323: 


F0 


06 




33 




mi 


TRAITE 


.* 
i 


s nui: upr** r r a i t piup n t 


0325: 


C9 


8D 




34 




CM? 


f*8D 


t 

<» 


PflF~l*l 1 AVPf AI) 
fc Oft ^ » 1 Cfisv 


0327: 


FO 


02 




35 




BEQ 


TRAITE 






0329: 


DO 


02 




36 




BNE 


FAIT 




Ramt Aii-flp*wiic rtii frAitpfnpnf 


032B: 


29 


FE 




37 


TRAITE 


AND 


f»FE 


> 


MAsau# h 1 1 1 1 S 1 10 * tHioins 1) 

1 1 c 6 1 9 x J L X w v liiu ail—' x -f 


032D: 


48 






38 


FAIT 


PHA 




r 


On pmf> I I *> flpnv i ^1*1 f r **ttip n t A . 

U I 1 C 1 1 J kr | 1 C IL 1 L U V J -3 <_IU - (_IIJI_II<_ *>| 


032E: 


A5 


09 




39 




LDA 


VAL 




1 p l"iamrt*? ft-p rhAnrw^T 1 'ttrfpt 

it- L. Cllk-* ^ Li — L 1 1 U I 1 J — - 1 *_"— ■- '— 


0330: 


91 


06 




40 




STA 


<Adrb),Y 




nrp^^ripnt A ? ' flrtr Arfn^l Ijfr 

pi ^ V- kJ v ' ■ X- a J PiWL - Q-W tuc E | c 


0332: 


68 






41 




PLA 




i 




0333 c 


85 


09 




42 




STA 


VAL 




^fluupQflrdp rtflriR VAI 


0335: 


ce 






43 




I NY 




\ 
¥ 


Tin rip d 1 11*1 ontir V rtp hnur 1 p 


0336: 


C4 


08 




44 




CPY 


LONG 


r 


F^t - rp Ifl hornip 1 TnnuPUF" ? 


0336: 


90 


El 




45 




BCC 


BCLE 


| 


*?i l nrin s " antn Rrr.F 

ill JIUJI 4 uuvu 111 - ' 1 1 - 


033A: 


AO 


01 




46 




LDY 


£901 




V ^"Kir/li aiiAf* 1 psrti jr PTIpf t TP 
4 LIIaL yc aVCL X ^<UUL UVC t I. L t 


033C: 


A5 


09 




47 




LDA 


VAL 


4 
* 


1 m r""f^ri t fi> n 1 1 fit* VAT rtAnet 1 a 

1 17 LUli LI. UU KJC TIlL UaJIS J W 


033E: 


91 


06 




48 




STA 


<Adrb>.Y 


t 

f 


n r*-f*ni i r '"ir* tf*t rlii ^ at Aft i^rp 


0340: 


E6 


08 




49 




INC 


LONG 


r 


H* n^q I h 1 I Pf ) A f*A4P fOHiP" 
lit U"<3.3 UvLf J L 171 i a ^ascr ^UII 


0342: 


AS 


08 




50 




LDA 


LONG 


i 


rvAifif" lfl iff\Hi> rti y fAr Aft^rp 


0344 : 


18 






51 




CLC 




p 


AVAni^ Hp f*-fl: 1 f*U 1 pr 1 ' flfiTP*3*fP 
avail*, ijv h^a i kru i v l i a ui t •j-jv 


0345 r 


65 


06 




52 




ADC 


■ pint) 

ADkB 


• 


rlii rArflftPrp *?uiif3nt 


0347: 


85 






53 




STA 


ADRB 






AO • 


AS 


0? 




54 




LDA 


ADRH 


* 


I] peut y avoir une retenue. 


034B: 


69 


00 




55 




ADC 


£500 




et il faut aussi y penser 


0340: 


85 


0? 




56 




STA 


ADRH 






034F: 


4C 


08 


03 


57 




JMP 


DEBUT 








BSAVE CARAC.INV. AS3G0 


LS52 








Table 


des symbol es ordre aiphaDetique 






-ADRB. . . 


. . .*0006 


-ADRH. , . . 


..$0007 -BCLE. . 


... -»031B -DEBUT *0308 


-FAIT... 




*032D 


-FIN 


..•0314 -LONG. . 


• . ..$0008 -SUITE *0315 


-TRAITE. 


. . .*032B 


-VAL 


, .$0009 






■300.340 












CARAC 


.INVO 


0300- 


A9 


05 


85 


06 A9 


40 85 07 




Mini-routine special© pour de$ polices dont la 


0308- 


AO 


00 


Bl 


06 29 


IF FO 04 


4 


colonn© de 


blanc &$t a 1 extreme gauche. 


0310- 


C9 


11 


90 


01 60 


85 08 A8 




BSAVE CARACJIMV0, A$30O, L$41 


0318- 


Bl 


D6 


49 


FF 38 


2A C9 OD 










0320- 


FO 


06 


C9 


8D F0 


02 DO 02 




AVERTISSEMGNT : 


0328- 


29 


FE 


91 


06 88 


DO E9 A5 




Ces programmes fonctionnent sur Apple Ife, He 


0330- 


08 


IB 


69 


02 65 


06 85 06 




et We 6SC02. 


avec imprimante DMP ou IMA- 


0338- 


A5 


07 


69 


00 85 


07 4C 08 




GEWRITER 


— sous ProDOS, tenez compte des 


0340- 


03 












indications mention nees en REM. 
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GUV-HACHETTE 



|EU CRAPHIQUE 



DOS 3.3. 



ProOOS 



INITIATION 



MEMO-VISU 



D ON PIED... peut-etre, ma is bon 
" ceil ? Ce jeu visuel sans pretention 
vous permettra de tester votre sens de 
la perception (rien a voir avec fa col- 
lecte des i moots, rassurez-vous l)U et 
aussi d'apprendre a utifiser une petite 
forme (ici : un earre). 



I 119 r HGR ?i HCR2 InlHali 
sent (es deux pages gra- 
phlques... et les nettolenl. 

I 129 POKE 32.1* o1 POKE 
33,20 permetfenl de creer 
une feneire au centre de 

I'ecron. 

t 130 CALL — I9i emel un 

Bip. 

1 150 - On rtkiftiche id la 
page graphtqoe MGR sans 
texle 

(el sans ©Wocement), 

■ 179 : SCALE foil verier la 
tail I e de (a forme (aleatoi- 
romonl. avec ('utilisation 
de RND). 

I 190 : POKE 230.44 permet 
d'ecrir* dan* la pog* 2 
(HGK2) et POKE 230,32 
dans la page 1 

■ 390 : Aff khoge de la page 2 



Vous noterez que cheque 
carre est trace dans la page 2 
(son* effacemenJ). de 
nouveou dans la page 1 . . . puis 
eState pat XORAW apres une 
cnurto boucle d'attente per- 
mnttant de le vlsualiser. Celte 
boucle est fonttion de la 
vltesse choisie {ligne 130}. 

TRLMPLIN MICRO 



POKE - 16300 ,0t POKE - 16297,0: P 



100 TEXT s HOME ! PRINT CHR* (21): GOSUB 390 

110 HGR : HGP.2 i HC0L0R= 3: R0T= 16; TEXT 

120 T* - *: t't POKE 32,10: POKE 33. 

20: VTAB 12: INVERSE i PRINT T*;* COMPTEZ LES CAR 

RES -;T»: NORMAL 
130 PRINT i PRINT I CALL - 198; PRINT 'VITESSE (1 A 4 

)->';: GET V*:V = VAL (V»>t IF V < 1 OR V > 4 T 

HEN V - 1 
140 TEXT i HOME 
150 POKE - 16304,0: 

OKE - 16302,0 
160 N = 12 + INT { RND < 1 > * 12> 
170 SCALE= 8 + INT ( RKD CI) * 8) 

180 X * 32 + INT < RND (!) * 215) ;Y = 32 ♦ INT (. RND 
<1> * 127> 

190 POKE 230.64: DRAW 1 AT X.Yf POKE 230 ,32 

200 DRAW 1 AT X.Y 

210 FOR 2*1 TO 100 * Vt NEXT 

220 XDRAW 1 AT X.YsF = F + 1 ? IF F < N THEN 170 

230 G0SUB 380 

240 VTAB 22: INVERSE : PRINT ' COMB I EN Y A-T-IL EU DE 

CARRES ?';: NORMAL 
250 INPUT " 9* 

260 HOME : VTAB 22: INVERSE s IF VAL CR*> » N THEN PR 

INT "EXACT! " ; i GOTO 280 
270 PRINT 'FAUXi • -.Ft 

280 NORMAL t PRINT " PRESSEZ UNE TOUCHE S.V.P" 

290 GOSUB 370 

300 POKE - 16302.0: POKE - 16299,0 
310 GOSUB 370: GOSUB 380 

320 PRINT : HOME : VTAB 22: CALL - 198: PRINT ' <1> EN 
CORE <2> FIN <3> MENU DISQUETTE " ; r GET R* 

330 IF R* * "3" THEN TEXT r PRINT : PRINT CHR» <4>"RU 
N MENU" 

340 IF R» = "1* THEN RUN 

350 IF Rt < > *2* THEN 320 — * 
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360 HOME : TEXT t END 

3?0 CALL - 190s POKE - 16368,0: WAIT - 16384.128,127; 

POKE - 16368,0: RETUEN 
380 POKE - 16304, Oi POKE - 16300.0: POKE - 16297,0: P 

OKE - 16301.0: RETURN 
390 FOR I = 768 TO 781: READ D: POKE I,D: NEXT : POKE 

232.0: POKE 233 >3t RETURN 
400 DATA 1. 0,4.0.18.63,36. 36, 45. 45, 54,54,63.0 ■ 



I 370 : Attenle 
cursour. 



sons 



■ 380 ; AKkhog-e de lo page 
1 avec 4 lignes de texle. 

■ 394 : InHioii&otlon d* lo 
table de lorme ($E8, $E9). 

■ 400 Forme {carr£). 



PYRAMIDE 



Cortstruisez des pyramided. £ partrr 
des parametres que vous propose 
NESTOR. 



100 TEXT : PRINT CHR* C2l)s HOME £ GOTO 270 
110 CX = SX + (H # 0.32):CY = H * 0.66:BX = SX + CH # 

0.14>*BY = H:AX = SX - (H * 0^5>iAY = U * 0,7?i 

RETURN 

120 HPLOT SX,SY TO CX.CY TO BX.BY TO AX. AY TO SX.SY T 

O BX.BYl RETUEN 
130 SX = 555SY = 10iH ■ 115: GOSUB 130: GOSUB 120 
140 SX = 230 :SY = 5:H = 95s GOSUB 110: GOSUB 120 
150 SX = 145:SY a 0:H ■ - 1 
160 H = H + 2i GOSUS 110 

170 HCQLOR= 2i HPLOT CX t CY TO BX.BY: HCQLOR= 3: HPLOT 

BX.BY TO AX, AY TO SX.SY 
180 IF H < » 157 THEN 160 
190 GOSUB 120 

ZOO VTAB 24s HTAB 10: PRINT "PRESSEI UNE TOUCHE SVP* ; 

! VTAB 22: PRINT 
210 CALL - 198; POKE - 16368.0: WAIT - 16384.128,1273 

POKE - 16384,0 
220 VTAB 24s HTAB 1: PRINT "<«>ENU DE DISQUETTE <E>NC 

ORE <T>ERhHNE 1 ' t 
230 VTAB 19s PRINT : CALL - 198; GET R»: IF R» = T 

THEN TEXT r HOME : END 
240 IF RH ■ *N* THEN PRINT : PRINT CHR* <4>"RUN MENU" 
250 IF R» - THEN 100 
260 GOTO 220 

270 POKE 8192,0 ;A» = '2Q0U2Q00.3FFEM D823G* : FOR I = 
I TO LEN <A*)3 POKE 511 + I. ASC < MID* <A»,I,1> 
) 4 128: NEXT ; POKE 72. Or CALL - 144 
280 HCOLOR= 3; HGR 

290 VTAB 22: INVERSE t HTAB 14 J PRINT " LA PYRAMIDE " 
r NORMAL t GOTO 130 ■ 




HO ; Paramelres lotole- 
ment arbitroires, mois 
correspondent i une pers- 
pective do bo*9 exocfo, 

130 ; SX el 5Y sour les 
coordonnees du sommei 
(55 pts a partlr de la gau- 
che et 18 a parttr du noiri 
de I'ecran), H est la hau- 
teur. Meme chose aux 
lignes 140 at ISO. 

270 : Ce sysleme permei 
d'cffaeer la page graphi- 
que. sans que cela soil 
visible, HGR produit |* 
meme elfef, mol* an a l« 
temps de voir le contenu 
d* l'4cron ovonl l'*ffoce- 
ment. 

Quand HGR a dfrjii ele uli- 
lise, I'effQcement peu» 
aussi efre obrenu par : 
HC<XQ*=0 : HPIO.8,8 : 
CAU- 3882 

{si on utilise HCOLOR = 3, 
on color* I'ecran), 



GUY-HACHETTi 



GRAPHISME 



NITIATION 



ALLUME ou ETEINT ? 



Comment connaitre I'etat d'un point de I'ecran ? 



RAPPEL DE NOTIONS CONNUES 



L'£cran Haute Resolution de I' Apple se compose de 
280 X 192 pts (280 X X6Q quand iJ autorise I' offi- 
cii age de 4 tignes de fcexte). La poge HGR va de 
I'qdresse 8192 b 16383 ($20OO-$3FFF), la page HGR2 de 16384 a 24575 ($4Q0Q-S5FFF), Choque point 

I'ecran {pixel ) correspond 6 un octet de la m4molre. Ce* octet esl lui-m*me divise en 8 bits. 
Ainsi, la da votre etron HGR est constitute de 7 bits X 40 = 283 bin, points ou pixels.. Mots 
oil son* done passes les & a bits ? Chacun d'eux est tout simplement utilise poor determiner la couleur 
ties 7 Quires. Cesl relativement complexes, et clair a la fois. Qu'an en jug© I 



OU INTERVIENT LA COULEUR 



est olors interessant de con suiter un tableau comme celui-ci 



Quond un bil est b Q> la taufeur est le noir. Le point est 
£teint et on n'y vort goulte, Quand il es! b 1, le point est 
allurn^,,. mais $a ne nous renseigne pas sur la couleur. II 



POINT 1 
ALLUME 1 


&* BIT h : 


COLONNE PAIRE 


COLONNE IMP AIRE 


a 


VIOLET 


VERT 


t 


BLEU 


ROUGE 



r"~^ > 1 Patience 1 on y arrive. Ouand deux bits consecutifs (sur tine 

1 OU EST PASSE LE BLANC ? mime rangee horizontal*, si vous prefiirez) sont 6 1 , Us sont 

obllgotoirernent blanes. Pas d'exceptian ! £o vous parait en- 
lantSn ? Daecord, Alors, expliquez-moi comment faire pour obtenlr un ecran uniform*ment bleu ? 

Reponsa : It faut que le 8* btl soit 6 1 . que thaque bit des calonnes paires soit aussi b 1 et que, par conlre, 
cheque bit des colonnes impaires sort a 0. En binaire, cela nous donne : 1 101(31 01 = $D5 
SI. avec les mSmes donntes, le 8 fl bit est d 0, on aura du vtolef, sort, en binaire 0T0H3101 =$55 



TABLEAU DES COULEURS 






NOIK 






4 


NOIR 




10000000 


1 


VERT 


J2A 


09101010 


5 


ORANGE 


SAA 


10101010 


2 


VIOLET 


$55 


01010101 


6 


BLEU 


$05 


11010101 


3 


BLANC 


S7F 


01111111 


7 


BLANC 


$FF 


11111111 



I Cette instruction fixe la couteur Haute Resolution- SI vous tape* HCOLOR - 4, la 
HCOLOR couleijr choisie esl noire el l adresse $E4 (228) va contenir la valeur SB0 (128), soil 

" 10000000 en binaire. Les 7 bKs af fichus par un HPLQT x,y sont nuls : le point va 

done rosier noir, On obtiendrait un r^sultat idenlique avec HCOLOR = 0, t5vit+ e>og* W 



TRffolPUN MICRO 



■ COLOR.DEMO 

100 TDiT t HOME s HGR 
110 PRINT s VTAB 21 i CALL - 958t PRINT 
■MUMERO DE COULEUR <0-7) -> G 
ET CH* 

120 IF CH* = CHP* (27> THEN TEXT : HOW 
E t END 

130 C = VAL (CH*): IF C > ? THEN 110 
140 RESTORE : FOR I = TO C: READ C*. 

HS,B*i NEXT : HCOLDR= C 
150 PRINT : VTAB 23: PRINT C»* "H*" "B 

*■ *i 

160 IF C = ! OR C » 3 OR C » 5 OR C = 

7 THEN 180 
170 X - 0:X1 - 50 :P - 0:P1 = 50:P» - * 

COLONNES PA IRES': GOTO 190 
180 X = 50:X1 = I00:P ■ 51 :P1 - 100:P* 

= H COLONNES IWPAIRES" 
190 FOR I » t TO 30: HPLOT X,P TO XI. P 

lsX = X + ItXl -XI + 1$ NEXT 
200 IF C < > AND C < > 3 AND C < > A 

AND C < > 7 THEN PRINT P* u *: 
210 FOR I = tl TO 19? HPLOT 1,0 TO I + 

100.100: NEXT 
220 CALL - 196i GET R»s GOTO 110 
230 DATA N0IR.*00, 00000000. VERT. *2A, 00 
101010, VIOLET. 955.01010101. BLANC* 
7F.01111 11 l.NOIR,*80, 10000000. ROUG 
E.fAA. 1010 1010. BLEU. »DS*1 1010101. B 
LANC.*FF t llllllll 

■ COLOR. VAL 

100 TEXT t HOME 

HO PRINT "VALEUR DES DTFFERENTES COUL 

EURS: 

PRIHT 

120 FOR I = TO 7-. HCOLOR^ 1 t READ C9 
,H*.B*t INVERSE r PRINT Is J NORMAL 
s PRINT 8 H Ct: TABC 10>H»; " "B»" 
M S PEEK <228>: PRINT : NEXT 

130 DATA NOIR, *0O. 00000000, VERT,*2A, 00 
10lOiO T VIOLET-*55 + 0101010i,BLANC,» 
7F»011H 111 .NOIR,*80« 10000000 >ROUG 
E.*AA.10101010,BLE13 P *D5 4 11010101 ,B 
LANC.tFFf 11 11 11 11 

FACULTATIFS Ces mini-programmes peu- 
— " — — ^— - ven | vous oider 6 rnieux 
comprendre le comportement de voire Apple, 
face 6 la couleur. Notez que le rouge d-£signe 
improprement l'orange. ■ 



POKE 228,128 ou POKE 228 r O provoquerait 
le me me effet. Vous pouvez lire lo couleur 
en caurs, a n'importe quel moment, en mode 
direct ou dons un programme, en toponi 
PRINT PEEK (228) 
ou C ss P£EK{288) : PRINT C 
Si vous essoyez d'^clairer un point avec une 
couleur r>e pouvant pas s'afficher sur la 
colonne indiqude, vous n r obtiendre7 rien. On 
comprend facllernent. en consultant notre 
petit tableau qu J il n'est pas possible d'dclai 
rer certains points avec certaines couleurs, 
Vous en aurez la prouve en tapant et en exe- 
cutant ce court programme : 

10 HCOlOR = 1 ; REM VERT 
20 HGR 

30 HPLOT 2,0 ; REM COLONNE PAIRE 
RUN... II ne se posse r ion 
30 HPLOT 1 ,0 ; REM COLONNE IMPA1RE 
RUN . . . Le point est affeche 



i 



EN MODE HGR, UNE COULEUR NE PEUT 
§TRE REPRODUCE QUE TOUTES LES DEUX 
COLONNES. 



Comment, dans ces conditions, oblenir un 
bon trace ? Trais solutions : 

U UttJiser le blonc. qui fonctionne 
parlour I 

Selectionner la colonne en fanction de to 
couleur 

I Doubter I'epaisseur du trac6 pour loutes 
les lignes verikoles. 



© 
® 
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He pas oublier. en tout cas r que I'Apple va 
aulomatiquement transformer en un double 
point blartc... deux painls ailum-6& contigus 
sur une meme ligne horizon tale... 
quelle que soit leur eouteur d'origine. 

Les effets obtenus sant rarement heureux, 
notamment quand on trace fes fomeux 
camemberts, chers aux amateurs de 
graphiques 

On croit pouvoir disposer de 8 couleurs... 
rnals avec ses deux noirs et ses deux blancs, 
natre palette n'en compte d£ja plus que 6, 

En fait, avec les £crans trichromes, on n'uti- 
lise que fes trots couleurs tandamentoles 
(bleu, rouge et |aune) ou leurs cornpl^men 
rakes (orange, vert et violet}. 

Nous n'ollons pas nous plalndre... d'autant 
mains que. en Double Haute resofution, lo 
palette de I'Apple presente bel et bien 16 

caulwuri... rnais c'esl one autre histoire ! 

iiitifiivpiir 

GUV HACHETTE 



GRAPH I SMI 



EN HAUTE RfcSOlUTlON 



SUITE 




HON AUTORISt 



120 ; Net toy age preolobto cte 
opage HGR... puis HGR. 



: Yl = Somme! la 
forme plus t 

V2 lu ii.nnn? 



160 : On peut ufiliser une 
oulr« f o m 1 1 i . (*i vou* 
e&sayez ovec HCO LOR = 4 , 
vous modifierez legeremefit 
le conlour.. . sans rien eola- 
rar, evidemmenfr), 

2-1*1-250 : SI vous dies 
Cvriift-ux, lourn&z lo pcagu oi 
vous aurez I 'explication de 
ces deux lignes : 



COLORER 
UNE FIGURE 



SI lo coloration d'un polygone regulier,„ ou d'un cere!© no 
presente pas de difficult© particullere. il n'en va pas de 
me me pour une figure plus ou moins biscornue. 

Nous vous proposons ici une solution volable pour coiorer 
une figure isolee obeissont 6 certains criteres (imperatifs). 

* Elle n© doit pas s'affieher au-deld de la colonne 255 (la 
routine est evidemment modifiable, mais n'auiorise pas 
de depassement sous so forme actuelle), 

" Aucun de ses points ne doit etre plus haut que le dernier 
point de la ligne precedente (col a vous paratt complique\ 
mais les graphiques ci-contre vous donnent un exemple 
de "bonne" (1) et de "mauvaise" {2) figures). 



r- o I, O R . nr-iR ■: u; i - t-it^M r RENAPD > 



lee 



PRINT CHR* <4>'PRf3" 



TEXT : HOME 
1 18 GDSUB 238 

1 29 POKE 238,32: CALL 62450: HGR 3 HC0LQR= 3 

136 HPLOT 28,8 TO 128,40 TO 78,58 TO 95,80 TO 255,148 

TO 5,140 TO 40,78 TO 20,8 
140 X ■ 0:Y1 - 1 :Y2 ■ 140 

150 POKE 4,Yls POKE 7,X: POKE 8,8: POKE 25, Y2 
160 HC0LDR= 2s REM PAR EXEMPLE 
170 CALL 748s CALL - 198 

188 LTAB 23: PRINT "<I> MENU DE DI5QUETTE <2> LIST <3 

> FIN " ; ; GET R$ 
198 PRINT : HOME * TEXT : IF R* = '3' THEN END 
288 IF R* = *t' m THEN PRINT CHR* (4) "RUN MENU" 
218 IF R* = '2' THEN HOME : LIST : PRINT 
228 GOTO 180 

238 FOR I = 748 TO 838: READ R; POKE I,R: NEXT t RETU 
RN 

248 DATA 149,8,133,9, 32, 55, 3, 240, 6, 230, 9,230, 7, 208,24 
5,165,9,248,248,281 ,5,176,19,32,55,3,288,14,165,4 
,166, 7, 164, 8, 32,87, 244 

258 DATA 238,7,298,238,96,149,8,133,7,238,4,165,6,197 
,25,144,282,96,165,4,146,7,164,8,32,17,244,177,38 
,37,48,41,127,96 _ 
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COLOR-HGR les lignes 24Q-25Q de la page precedente 







r. p. 




LOA 


£$86 


©362- 


fl-i 


69 




STA 


*09 _ 




2 6 


37 


03 


JSR 


*8337 


0307- 


F0 


66 




BEG 


*030F 


0309- 


E6 


09 




INC 


*89 


0306- 


E6 


07 




INC 


$07 


B30D- 


D6 


F5 




BNE 


$0304 


t) JD 1 


Pi— 


ft o 

U T 




LDA 


*89 


631 1 - 


F9 


F8 




BEQ 


*6 3BB _ 


0313- 


C9 


es 




CMP 


t*8 5 


G31 5- 


Be 


1 3 




BCS 


*0 32A 


631 7- 


28 


37 


83 


JSR 


$0337 


631A- 


D6 


e>E 




BNE 


$032A 




A5 






LDA 


$06 




Mi 






LDX 


$07 


6320- 


A4 


68 




LDY 


$68 


6322- 


20 


57 


FA 


JSR 


*F457 


0325- 


E6 


07 




INC 


$87 


0327- 


D6 


EE 




BNE 


$631 7 


B329- 


66 






RTS 




32A- 


A9 


66 




LDA 


£$00 


fi "Z> 1 — 1 


i l c 

o3 


H / 




STA 


$87 


©32E- 


E6 


86 




INC 


$06 


6330- 


A5 


06 




LDA 


$06 


6332- 


C5 


19 




C l 1 P 


$19 


0334- 


90 


CA 




BCC 


$0300 


336- 


69 






RTS 




0337- 


A5 


06 




LDA 


$06 


B339- 


A A 


07 




L Ox 


$67 


633B- 


A4 


08 




LDY 


$08 


6330- 


20 


1 1 


F4 


JSR 


$F41 1 


6340- 


Bl 


26 




LDA 


<$26> ,Y 


0342- 


25 


36 




AND 


t 3 


8344- 


29 


7F 




AND 


£$7F 


0344- 


66 






RTS 





pas rencontre un point 011111114, 

GOSU& I© 3w>u s- program me de leclurd d'6eran. 

CARREFOUR — 

Si A = saut6$38F. 

sinon on increments les pointeurs* 09, ainsi 
que 07 pour avaneer d'une colonn-e d 
puis retour d la fecTure d'^cron vio $304. 

Le pointeur 09 esMI b 1 ? Si non, encoro un 
tour I 

Est-il plus grand que 5 ? 
Si oul sauf. 

Si non, GOSUB lecture d ecron 

St A ■ 1 on rencontre une lamite droile de lo forme. 

HPLOT COLORE 

Si A = <J, on va le coiufer grace 6 HPLOT 
{apn&s avoir char<g£ Ja bonne adreaae dflc>S 
)es 3 reglttres). 

Plus un point. 

Si on n'esf pas b tiro, *ncore un lour. 

NOUVELLE LIGNE 

Poinleur CF7 rem is 6 xtfro pour lire une nou- 
velle ligne 

+ I pour le nombre de lignes at comparaison 
avec la valeur-limite continue dans $19 

Suite ou iin 

LECTURE D'ECRAN HGR — 



Aprii avoir place Yl {ligne 4 life) dans I'accu- 
mulatfcur #t X (tolonne) dans les registre* X 
(partie basse} et ¥ {portie haute), on taif»« 6 
KPOSN ($F41 1) le voinde fair* foul le Iravalt. 
A la sortie, si A es1 6 1 , le point est allum6 
S'il esl b zero, il esl 4t«int, 



RbMAROI IF I C - ette rou1ir,e f --- 1 perfectible d':ihc.rd ppf$Q q.s^\\^ n o i :-r pas eff scare 
v " ■ dans tous les cas dd figures, 



gures, ensuile parco qu'olle ne salt pas colorer 
une forms au-dela de lo 255* colonne. C esl Jo modlf kotion la plus facile 
(les deux pointeurs existenl \ $7 $8..- &i II suffit d'incr^menfer \& second quond Id premrer 
depasse $FF, ce qui n& pose pas de problem© particulier). 

N^anmolns, felle qu'elle s© presenie, lo routine constitue a mon avjs, une bonne opproche 
du "coforioge automatique" des formes. A vous de jouer J G--H. 

W«— ■ — mmm !■ — i ,,,,., M j,p # ^, M .. MgM , M , M .. m . 
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UTI LIT AIRE iggl 



BASIC et LANGAGE MACHINE 



GRAPH 



par NESTOR 



UNE NOUVELLE VERSION 

POUR CHIFFRES EN DENTS DE SCIE 



UEHTG: I1EMSUGLLG BE GUILJGUILIS 




CET u I i I if aire pr dsente I'avantage 
( oon n £gl i geab le) de re prendre 
des routine? et polices de caractferes 
dejd pa rues dons Tr&mplin Micro* 

On peut ousst ufiliser ies fonles class!* 
ques de la disquette Appje DOS TOOL 
KIT (DOS 3.3). 

Une court© rouiirve en langage 
machine acc6lere con$id£rablement 
I'af f *c h age du graph© (f ex te 
notammenl). j 

La premtere reprend le mime printipe 
que "Colorer une figure' 1 (page 21 ) P 

GRAPH se compose de : GRAPH (programme en Basic}, GRAPH. LM (routine Installs h I'adresse $300), 
GRAPH. IMP (5 repiWre dons le n°6 de Tnmptin Micro, sous le litre "IWP.HGR1"}, GRAPH.F (fonts par- 
tielle de taratlkres). 

Une routine GRAPH. AIDE permertro aux neophytes de recuperer et reloger oulomofiquement 
GRAPH. IMP et GRAPH ,F r 



h n j j n 

eti uHLeimsiBM 



105 j LOMEM est fixe a 16384 
pour protege*- la page 
graph ique. 

125 : ON ERR GOTO renvoi* 
menu. 



Pour oec4l6r9r I* frw* du 
graphiquo r on a plc-cc le 
souvpragramme de trace en 
tete. Dans la version final©., il 
est conseille d'ellmfcner lea 
ligrio* de REM, 



100 TEXT j HOKE r PRINT CHRS (21) 
105 LOMEK? 16384 

110 DIM VU3).VFU3>:DS = CHR* <4) 

115 PRINT Dt'BLOAD GRAPh\F>A*JD4C # I REM 750Q 

120 PRINT D*'BL0AD GRAPH<LM M : PRINT D»" BL0AD GRAPH. IN 

P,A7250" 
125 ONERR GOTO 595 
130 GOTO 585 : REM MENU 
135 t 

140 REM o#*#*#*#####ih»*#«#*«#«##**m 
14S REM * LES CHIFFRES ET LETTRE5 * 

150 REM 

155 i 

160 POKE 8, AC: POKE 254, AD - INT (AD / 256) # 256: P0 

KE 255, IKT CAD / 256 > 
165 CALL 829: RETURN 

170 L = LEN <RS):AD =* AD + INT <2l - L / 2) 

175 FOR 1-1 TO L;AC - ASC t MID* CR*,I,1)> - 31 

180 AD = AD * U GOSUB 160= NEXT U RETURN 

185 RS «* TI*:AD * 6191: GOSUB 170 — - 



TREMPLIN MICRO 
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GRAPH (BASIC) slute 



190 FOR 1 - i TO 12tAC = ASC ( MID* C JFHAMJJASQND' , I 
,1>> - 31:AD = 8785 + U * 3,125): GOSUB 160s NIX 
T 

195 R <= OtDX = ItCA* = "831 985758831 90878359861 568719 
12783998655' 

200 IF PG / DX > 999 THEN OX = DX # 10: GOTO 200 
205 FOR I * 1 TO 40 STEP 4 
210 AB = VAL t MID* (CA*.I.4>> 

215 CH * INT CPG - (R * (PG / 9))):CH - INT <CH / DX) 
220 CK9 = STR» £CH):CH* = LEFT* C<CHS + * ">*3>5R = 
R ♦ 1 

225 FOR t ■ 1 TO 3iAC = ASC ( MID* (Ctf*.K,tn - 3l:AD 

= AB + K: GOSUB 160: NEXT K: NEXT I 
230 R* = "EN VALEURS" t IF DX = 1 THEN R* - R* + " REE 

LLES" r GOTO 240 
235 R* = R* + V + STR* (DX) 
240 AD = 9039: GOSUB 170: RETURN 
245 t 
250 REM 

255 REN * TRACE DU GRAPH I QUE * 
260 REN 
265 : 

270 IF NOT ND THEN R» = 1 SAISIR LES DONNEES GOTO 
365 

275 IF NOT N THEN 285 

280 IF M THEN POKE 230,32: CALL 62450 

285 POKE 49236,0: POKE 49234,0: POKE 49239,0: POKE 49 

232,0: HCQLOR* 3 
290 IF NOT N THEN 355 

295 HPLOT 24.10 TO 24,155 TO 279,155 TO 279,10 TO 24, 
10 

300 IH = 30: HPLOT IN. 156 TO IM.l59rD = 1 

305 FOR 1 - 52 TO 279 STEP 22:0 = D ♦ 1 

310 A = 154 - VF(D):A1 = 154 - VF<D - 1> 

315 IF Al = 155 THEN At = 154 

320 IF ft = 155 THEN A « 154 

325 HCOLOR= 3: HPLOT 1,158 TO 1,156 

330 HCOLOR= 2: HPLOT 1H.A1 TO I T A 

335 IH = It NEXT 

340 HC0LOR= 2: CALL 768 

345 FOR I = 26 TO 154 STEP 16: HPLOT 24 J TO 278. It N 
EXT 

350 NG = 1: GOSUB 185 

355 M = 0: CALL - 198; GET R* 

360 PRINT : TEXT : GOTO 595 

365 VTAB 21: CALL - 958: CALL - 198: HTAB lis INVERSE 
i PRINT R*: NORMAL t FOR I = 1 TO 2000: NEXT : G 
OTO 595 
370 i 
375 REM 
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?60 ; POKE S, AC Indique le n p 
de carocfere a la routine en 
langage machine. 
L'odresse-ecrao oil doll se 
fa ire lalfichage es1 ello- 
meme poquee en 254 el 255 
($FE et $FF}„ toujour* a 
I'tntenttofl d« lo routine en 
LM. 

155 : La routine L.M. com 
rnence a cetle adresse, 

190 : On pen I imaginer de 
remplaccr les linitiales des 
mol* par out re chose, .. 

195 : Les adresses de* ligne* 
de ia page HGR son! conls- 
nues don* lo variable CA$. 
On Qurait pu les mettr© en 
DATA, 



De 185 6 240 : atbchage de 
lout ce qui est texte. 



270 : Ouond ND - 0, pas de 
donnees en me*noire. 

280 : Effacement de I a page 
HGR. 

285 : AHichoge de Id page 
son* lo* 4 llgnes de texte... et 
sans cffescemenl. 



Suivoj pas 6 pas le trace du 
graphique. Ce n'esl pa* Ires 
compllquo... el de tongues 
explications poroissont 
super! lues. 



340 : CALL 768 envoi* a lo 
routine qui va coloref lo gra- 
ph iquo (avec HCO LOR a 2} . 



Nous avons supprim* le trace 
{»n blonc) des dents de scie, 
mais il peut etre retabli : 
330 j HPLOT IWI.AI TO l,A 

(Supprimer HCOLOR = 2) 

■■■»HIW>l»a»»M*HMHl 

GUY HACHETTE 



.......... 



En cours de so isle, il est po< 
siblo d« revenir ou m*rtu on 
tapont un ft Pour corr Iger la 
donnee precedents, roper I' *. 

Si Id valeur est bonne., se con- 
tenter dun SB7URN. 
1* programme accepte les 
valeurs mois vous vous 
planterez proprement s'il n'y 
a pas ou moins una valour 
ivpGrieure d 0. 



un 



530 ; SI le flirt est ban. 
simple RETURN sufflra, 
Attention I on r»e contf6le 
pes lo longueur de cefameux 
tifre. Ne dipa**er pas 39 
caracteres... ou modifier ie 
programme ; 

(531 IF LEN(TI$) ?39 THEN 
530). 

Le signe §, op res INPUT, indi- 
que la presence d un CTRL 
G... Invisible, Ne taper pas §.. 
mois CTRL-G. 



585-594 i Compter bien vos 
espates.. sin-on gore ou* 
degai 



is J 



S9S i fulllisation des POKES 
oviteHTAB 



38C 

385 
?an 

395 

400 

405 

410 

4L5 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

4?5 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 



535 
540 

545 
550 
555 
560 
565 

575 
580 
585 

590 



REM • SAISIE DES DONNEE5 ■ 
REM »*##J»#*#JHHHMHHHHf»| »**«*« «*»«## 



TEXT 
I = I 



I = 0:H « 



k V<I> 



HOME 

■ 1 

V$ = - "t IP I > 9 THEN V* = 
VTAB 3 + Is PRINT V»P, VALEUR -> 
HTAB 15: INPUT '";V$ 
IF V* = *i* THEN 450 

IF V* = AND I > I THEN 1=1-2: GOTO 400 
IF V» < > THEN VCIi = VAL (V*) 
VTAB 3+1: HTAB 15i PRINT V(I> 
M « 1 

IF t < 12 THEN 400 
PP = VC1>:PG = PP 



FOR 1 = 

!F vtn 
if v<n 

NEXT 



1 TO 12 

> PG THEN PG = Vt I > 
< PP THEN PP = V(IJ 



144 / PG:P ■ 1 
= PG / 144tP » 



IF PG < 144 THEN CO = 
IF PG > = 144 THEN CO 
FOR I = 1 TO 12 
ON P GOTO 500,505 
VFCI) = INT (Vtl> # C0>: GOTO 515 
IF va> = THEN VF< I >=G :G0T0 515 
VFCI) b INT WI) / CO) 
NEXT tHD « 1 

IF LECT THEN LECT = 0: GOTO 595 

* 

VTAB 20: INVERSE s PRINT "TJTREt " r NORMAL ( PRINT 

s VTAB 22: PRINT TI»:t HTAB Is INPUT "9"iR*f IF 
R* < > THEN TT* = R* 
VTAB 20: CALL - 958: PRINT TI* 

VTAB 22: PRINT "<1> ENREGI5TRER LES D0NNEES <0> N 
ON ' : : CALL - 198: GET PS 
PRINT : IF R* * "0" THEN 595 
IF R» < > * I ■ THEN 540 
GOTO 695 



REM •#*##*#*#«**#-tOHt#**#«»«##*#«»# 

REM » MENU * 

REM M*#***********-**###*-»*#*#*##» 

f 

' ! : " :TM* = - 



T* 

U 

M* 

ON 



M E N 



■1. LECTURE DE FICHIER 
3. VOIR LE GRAPH I QUE 
APHIOUE 5. FIN DE PROGRAMME* 
595 HOME : POKE 32.10: POKE 33.20r 

PRINT T*TM*T*: NORMAL t POKE 32, 8 i 

: ifr 

600 FOR I ■ 1 TO LEN f «*> STEP 25: PRINT MID* CM*, I ,2 



2. SA1SIE/C0RRECTI 
4, IMPRIMER LE GR 



5: INVERSE s 
POKE 33.32: PR 
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GRAPH (BASIC) 



SUITE et FIN 



5): PRINT : NEXT 
POKE 32,0: POKE 33.40 
PRINT ! VTAB 21 s HTAB 111 INVERSE : 
CHOJSIEt "j! NORMAL i HTAB 27: 
RINT C'fr.S HTAB 28: GET R$ 
R ~ ASC (R*> - 48: IF R < 1 OR R > 5 THEN 610 
PRINT P.s 



605 
610 



615 
620 

630 
635 
640 
645 
650 



PRINT 'OPTION 
CALL - 198: P 



660 
665 

670 
675 
680 
685 
690 

6?5 



700 

705 
710 
715 
720 



725 
730 
735 
740 
745 
750 
?S5 



760 
765 
7"C 
7^5 
780 
785 
790 
795 



ON R GOTO 750,395,270.655,790 
REM 

REM * IMPRESSION DO GRAPH I QUE * 
REM *»*»* ************************* 

IF NOT NG THEN RS - " OPTION GRAPH S.V.P 'i GOTO 
365 

POKE 6.1 j POKE 7 Li POKE 253,0: POKE 254.23 

POKE 49236,0 1 POKE 49234.0: POKE 49239,0: POKE 4<? 

232,01 CALL 7250; HOWE : TEXT : GOTO 595 

* 

REM ************** **************** 
REM # ECRITURE DU FICHIER * 
REM ****************************** 

VTAB 20: CALL - 950J PRINT "TITRE -> GRAPHO CPA 
R DEFAUT) ;: HTAB 10: INPUT h "sF»: IF F* > CHR* C 
47) AND P* < CHR* (58) THEN Ft = "GRAPH* + F* 
IF Ft - If* THEN HOME t PRINT D» M CATALOG": PRINT 
s PRINT : PRINT : GOTO 695 
IF Ff = "* THEN F* ■ 'GRAPHO* 
VTAB 20: HTAB ID: INVERSE t PRINT FSf NORMAL 
IF LECT THEN RETURN 

PRINT WOPEN'Fl: PRINT D»'WRITr , F$: PRINT TI»: f 
OR I = 1 TO 12: PRINT V«I>: NEXT : PRINT D»" CLOSE 
"F*: GOTO 585 

REM ********** ****************** M 

REM * LECTURE D' UN FICHIER I 
REM **«**##*###■#•########»#*•■»««* 

HOME :LECT = ti GOSUB 695 

PRINT OS" OPEN 4 ?*: PRINT B*"READ" FS : INPUT TI*; FO 
R I » 1 TO 12? INPUT VCI): NEXT i PRINT D** CLOSE" 
F* 

M = 1 : GOTO 450 

¥ 

REM iMflKHMMMIIMI ******#*#*###***«## 
REM # FIN DE PROGRAMME # 

REM KM** 

t 

TEXT s HOHE 

VTAB 20: PRINT i 5GOTOI0Q00 ,, ; VTAB 19: END 

10000 POKE 5i.O: GOTO 595 ■ 



Roppelons que io routine 
derepression dolt etre reprise 
dons le n°6 de Tf+mptirt Micro 

U 1 1 1 is** noire programme 
GRAPHsAIDE pour la raloger 
(peg* 28}. C* sera plus facile 
car hi y a quelques adresses is 
modifief- 

Cette routrne ne foncttonne 
qu'ovec los rniprimanfes 
Appfe, y compris ImageWri- 
ler II (voir configuration d*» 
DIPS donsT.M. 6}, 



695*715 i Tronic common pour 
ecriture et lecture du fichier. 
I* ? ronvoia ou catalogue de 
disquette. 

Les fichiers s'appelfent 
GRAPHO, 1,2, elc. M - 
Pour obtenir GRAPHff 
RETURN 

Pour on autre num^ro, taper 
$*til*m*r*t I* numdro + 
RETURN 



En cas de pipin, GOTO 10000 
vaus renverra au menu 



ProDOS Ne P** 5 aublier 

de transformer 

CATALOG en CAT, 
De plus, modifier ainsi la 
ligne 665 ? Entre CALL 7250 el 
HOME, insurer ; NOT RACE : 



PRINT 



2& 



GUY- H ACHETTE 



GRAPH.LM 



Apres avoir tap^ les codes de cette co-urte rouline, vous 
Iq couvorez par un : 

S5AVE GRAPH.LM. A$30tt, L$79 



630B- 


A« 


1C 


LDA 


£*1C 


9302- 


85 


97 


STA 


*07 




A9 


80 


LDA 


£*88 


9386- 


85 


88 


STA 


*08 


6300- 


A? 


9B 


LDA 


£*9B 


838A- 


85 


86 


STA 


*86 


030O 


E6 


07 


INC 


*87 


838E- 


E6 


07 


INC 


*07 


©31 6- 


D8 


02 


BNE 


*8314 


8312- 


E6 


08 


INC 


*88 


0314- 


AS 


07 


LDA 


$87 


0316- 


C9 


12 


CMP 


£*12 


8318- 


D0 


05 


8NE 


*031F 


031A- 


A5 


08 


LDA 


*08 


83IC- 


F0 


91 


BED 


*031F 


831E- 


60 




RTS 




831 F- 


C6 


86 


DEC 


*06 


6321 - 


AS 


86 


LDA 


♦ 06 


8323- 


A6 


87 


LDX 


*87 


8323- 


A1 


88 


LDY 


*08 


8327- 


20 


11 F4 


JSR 


*F41 1 




EM 


26 


LDA 


(»Z6> (Y 


032C- 


25 


38 


AND 


*38 


032E- 


29 


7F 


AND 


£*7F 


0330- 


F8 


ED 


BED 


*83IF 


0332- 


A5 


87 


LDA 


*8 7 


0334- 


A6 


08 


LDX 


*88 


0336- 


A0 


«A 


LDY 


£$9A 


0338- 


20 


3A F5 


JSR 


*F53A 


0338- 


4C 


08 83 


JMP 


*8388 




A9 


44 


LDA 


£*44 


0340- 


85 


06 


STA 


*06 


0342- 


A9 


1 D 


LDA 


£»ID 


8 344- 


85 


07 


STA 


*07 


0346-" 


A4 


1 E 


LDY 


a .~i 


8348- 


1 8 




CLC 








a ^ 
oo 


LUW 




8 346- 


69 


08 


ADC 


£*83 


034D- 


85 


06 


STA 


*06 


034F- 


A5 


07 


LDA 


*87 


035!- 


69 


ee 


ADC 


£*00 


0333- 


:=:-, 


07 


STA 


*07 


0355- 


88 




DEY 




0356- 


D0 


Fl 


BNE 


♦ 0349 


0358- 


Bl 


86 


LDA 


(*06) ,Y 


035A- 


?l 


FE 


STA 


f*FE) ,Y 



] 
J 

] 
1 



C0L0RER LE GRAPHE 

Position horizontal* (-2} du premie* point 6 lire 

dans meriKHre OS {position borizontale, partie haute) 
Limite verticole (+1) de lecture (on lira de 1 55 a 

+ 2 pour la partie basse 

Si on n'o pos obtenuO (JFI+1 + 1), saut 
Sinon. plus. 1 pour partie haute 
07 dans l accumuiateur 
E*f on6S12? 
Non : an continue 

Oui : SB wt.il d 1 (51 12-274, Italic Iwiiontde d* l«fur*t f 
Si $3 est d zero, on continue 
Rotour ou Basic 

Compie a rehoyrs vertical &\ mtfmoife S6 don* A 

X Ert Y charges a vet I 'adresse {basse et haute) du 
_1 poind 6 lire 

MPQ5N IravaINi pour no-us, So rAponse sera dans 

1 accurnulateur. On aura si le point est £telnf et 1 
s' il est a Hum 6 

Si A =fl, retour a $3 IF powr remonter d J une ligne 

Partie basse- absciss* dans A 
Partie haufe abscisse dans X 
Ofdonnee dans Y 

HUN trace la ligne (du haul, ow I'ofi italt, |u&qu'«n bo*) 
ET ON RECOMMENCE > 



] 



i 
] 



ECRITURE HGR 



Adr«»s* d« ba*« d* la police de coratferes 
(S1D4C-6 - S1D44) 

Numero du caractere dans le reglslre Y 
Rerenue h Q avant ^'addition 
Adr«*s* d« bos« (porfi* basse) dans A 
+ 8 {nombre d'o-ctets par coroctire) 
Nowvelle valeur dans m^moire $6 
Adresse de base (partie haute) dans A 

On tui ajaute la retenue eventuelte et on la remel 
dans $7 

Y = Y — 1 

Si Y est different de 0, GOTO 349 

Leclure-Acrlture (odresw caractere 4- — adfesse- 

ecran + Q) ^ 



!K€MHLIN MICRO 



D -«-J i_l 


A2 


88 


LDX 


£#00 


X 6 pour Venture odrijssogo indirect 


ft OSLC. 


LO 




I NY 




Y = Y + 1 


fl^SF- 


t -_' 


FF 


LOA 


*FF "1 


Ar4rp<*mA- prran (oar fie haute! dans A EM>Uf lui ojouler 






04 


ADC 


£*04 


$4,,, cequi correspond a + 1GP24 ($400), puisrefliiM 1 


a -q -to — 

TJ tJ O — ' 


85 


FF 


STA 




dons $FF, 


8 365- 


6 1 


06 


LDA 


<*&6) ,Y ~| 


Lecture odr**$e caroctere + Y el ^crtsure adresse- 


0367- 


81 


FE 


STA 


^*FE,X? _ 


frcrqn + (x = 0) 


8369- 


ce 


87 


CPY 


£*B7 


Si Y n'est pas a $7, on (ait encore un four 


036B- 


De 


Fl 


BNE 


*035E 


0360- 


6Q 




RTS 




Retour ou BASIC ■ 



Si vous etes rompu £ la pratique du Basic, n© 
tapez pas ce programme. Uoe lector© atten- 
five vous indiquera l©s diverges operations a 
eff©ctu©r pour mettre rapidement ou point 
une font© special© (GRAPH. F) ©t on© routine d'rmpression (GRAPH, IMP),.. Par 
contre, si vous manquez dexp6rj©nce, utilisez GRAPH -AIDE ! 



GRAPH.AIDE 



!00 TEXT i PRINT CHR* < 21 > :0* - CHR* (4> : HOME 
105 GOSUB 205 

110 PRINT 'PLACEZ DISKETTE DOS TOOL KIT DANS UGTRE SLOT I, PUIS FRAPPEZ UN S 
IMPLE {RETURN) " 

] 15 GOSUB IB&jF* - 'FLOW. SET* — FLOW-SET «t, & natre Owt»„ lo police TOOLKIT la plui 

120 ONERR GOTO 1 95 appropri.*. Vous povwi awui utilisor FAfRt.Fl 

125 PR t NT DVBLOAD "Ff .A7580' ■ {Tramplln Micron !}. 

138 GOSUB 190 

135 PRINT DfBSAVE GRAPH. F ,67508,151 2' 

140 HOME : PRINT MNSEREZ LA DISQUETTE <TREMPLIN MICRO 6> (OU CELLE SUR LAOU 

ELLE FIGURE UNE C0P1E DU PROGRAMME <1MP.HGR1>) DANS LE SLOT J" 
145 GOSUB 180 
150 Ft = MMP.HGR1' 
155 PRINT LX'BLOAO "Ff r A7259' 
lo8 GOSUB 190 

loS POKE 7432, 133i POKE 7433,28s POKE 7292,24; POKE 7293,29; POKE 7385,48: P 

OKE 738 6, 29 
170 PRINT DVBSAVE GRAPH. IMP ,A7 258, L230" 

175 VTAB 22: HTAB 6: INVERSE : PRINT 'UOS OEUX ROUTINES SQNT AU POINT" : NORMA 
L I END 

180 PRINT ; MTAB 22: PRINT * RETURN S.V.P. ' ; ; GET R»s I F R* < > CHR 

* <13? THEN 180 
135 PRINT : RETURN 

196 HOME ; UTAB 12: PRINT 'PLACE 2 MAINTENANT VOIRE DISQUETTE GRAPH DANS LE S 

LOT 1 ( PUIS PRESSEZ < RETURN >■ : GOSUB 1801 PRINT : RETURN 
195 PRINT 3 HOME j VTAB 12: IF PEEK (222> = * THEN PRINT 'OU CE N' EST PAS LA 

BONNE DISQUETTE* » . OUVOUS NE P0SSEDE2 PAS < * " > " t GOTO 310 
280 PRINT "1L Y A UNE ERREUR QUEL QUE PART? CHERCHEZ 1 

205 VTAB 10? PRINT " SI UOUS DESIRE2 UTILISER LES FONTES: <FAtRE.FI> cm <F 
AIRE.F2> DU NUMERO 1 DE TREMPL3N REMPLACE2 (FLDU.SET) , LI ONE 115 PA 
R <FAIRE,F1> ou (FAIRE.F2> , m 

218 VTAB 22: HTAB 6: PRINT ■<!> CONTINUER <2> CORRIGER — > * ; : GET R*: PRINT 
s IF R4 = THEN HOME : RETURN 

215 IF R* < > '2' THEN 210 ■ 
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GUY-WACHETTE 



Votre bibliotheque 
INFORMATIQUE 



par Clement RENARD 



• LA SECURITE INFORMATIQUE 
(Dunod) 

Toul chef d cntreprise, ufilisateur 
dp linformatique, dcvraH lire 
I'cwroge de Jean-Man: Lomere, ,, 
*t <mi tonseiUer one lecture plus 
arfentlv* oncore ou responsabte 
du servke inr£re*4&. 
Les nsqwe5 existent. Ceux dont on 
porle- mois aussi fes autres. mains 
connus, mala capable* de semer to 
pogdille dan 5 une ervl reprise, On 
$oit deja qu'ils coulenl, chcqu© 
arm^D, plusieurs milliards de 
framrs et sent une des causes de la 
dispafjtlcn de nombreuses en Ire- 
prises. L auleur no contente pas 
d'enumerer ies risqufcs. rnois pro- 
pose une methode pratique deva- 
ludiion ©t de reduction de ces ris- 

que*. A itrw ai-je£crit plus Koul ( 

mots egalemeni & dtudifcr. puis a 
nttpttre en ceuvre. 



lis w? 



* if PIRATE DE LINFORMATI- 
QUE (Cwtic/Nottwn) 

Nous iommea too* des virtimes 
pcrenhelles du piratago do llnfor- 
mnlique. Le " cracker", capable, 6 
16 an*, de percer Ies secrels des 
<xdinateura Ies mloux proteges... 
membre du "C^natflo", reseau 




regroupant Ies meilfeurs plrales. 
nous ledernontre dons un livee qui 
est en meme temps un guide de la 
stkunto informolique. 

Vous av<?i b»en tompris . Bill Lan- 
drefh. apprehend*? par !c F.B.I, et 
mis en accusation, vrjus livrw 
aujourd'hui $es secrets. 

Comment $« proteger eontre ces 
modernes "cas&eurs de systqmfc*" 
que sont ies plrales de I'mformaH* 
que ? Comment d&courager levirs 
Incursions indisiroMes.,, Com- 
ment Ies vrnpfchvr d'agr ou 
encore obtenlr leur oppui ? Si vous 
desirez en savolr plus, ou encore 
proteger votre serveur. User ce 
iivre oussi captivant qu'un roman ! 



INTELLIGENCE 

ART1FICIELLM 

ET SYSTEMES EXPERTS 




* INTELLIGENCE ARTtFICIELLE 
ET SYSTEMES EXPERTS 
(Cedit /Nffthan) 

On parle beaucoup de hnlelJr- 
gence artrficielle... mats sans trap 
sovcir ou en sonr Ies recherches. 
e1 en quoi consiste exacrement 
ceHe nouvfclle revolution in- 
formal (que. 

Cest probablemenl, actuellement 
en ttHjt coj», Pun des secteurs Ies 
plus atfracttfS; smr>n Ies plus pre- 
metfeurs, de llntorrnoriciue de 



dumnin Gu'»*t-C* qu'un system* 
expert ? Quels sont Ies grands 
principfrs determinant lo construe- 
I Ian e| Sexploitation dun rfcl 
systeme ? Vous le saurez opres 
avoir (u ce monuel d'Adrien Les- 
corL Je suis memo persuade que 
vous iprowveror I'onvSe irresistible 
decrire, sur votre App3e. un pro- 
gramme reposant sur Ies grands 
principfcs regissanl llnte^igence 
artificial*. 

• SYSTEME SEXPLOITATION 
DES IBM PC (Dunod) 

DflNtsoin,., ou apres-dernain vorrp 
Apple rvouv#lljr man lore vous p^r- 
meUro sans d&utft ric Fron-chir le 
ross4 qui le s&pare acluellcmenr 
du standard IBM. 

Gagpons que vous aimerez olors 
misuse connoHro le system© 
d exploitation du jjeune frere {it a 
arandi tres vite II n'esf d'ail- 
fowrs pos tellement different de 
notre ProOOS. 

G, Fador r D. Bonilas el G. Tanguy 
vous aident iti, avec un guide clair 
el agreable 6 compulser, a com- 
prendre les differences entre DOS 

i.i.zfl.a.a.a.i/pc-ix *i xenix 

Tout un programme ! 




TREMPIIN MICRO 
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UTILITAIRE 



DOS 1 PraDOS \ NESTOR 



D AT A-G E N E RATO R 



OUS avons deja publie (n°3 de Trernptin Micro), un programme gen^rant des 
lignes DATA ou POKES, mais different de celui de Nestor, puisquil partait de don- 
n4es existantes, deja instaltees en memoire par une routine en assembler 

DATA-GENERATOR permet de creer des lignes DATA ou gr<* de sa fantaisie. 

: Chaque ligne peul Stre facflement corrig^e {voire rema- 

niee), aussi longtemps qu'elle n'a pas et4 valid&e par on CTRL-F. 

Point fort : quand on desire rentrer, sous forme decimale, une donnee que Ton o en hexa, il 
suffit de taper un CTRL-G... puis la valeur hexa ; le programme fait I© reste. C'est amusant 
et pratique a la fois. 

Autre point fort : il est souvent n&eessaire d'incfure un espace au debut d'une donnee 
alphanum^riqu©. Lorsque celui-ci est inclus entre une virgole ©t la donnee, pas de pro* 
hl£>me. Par contre, s'il est en tete d une ligne DATA, immediotement apres le mat "DATA", il 
ne sera pris en compte qu'en utilisonf fes guillemets. Example : 100 DATA *' TOTO", LIU... 
Bten f avec DATAGENiRATOR, tapez votre espace... et laissez foire votre utilitaire ! 



PRINCIPALIS VARIABLES 
de DATA .G EN E R ATOR 



A 


Nombre de lignes de DATA 


D$ 


Le CHR$ (4) bien connu 


DAS 


Renferme le mol "DATA" 


ES 


Comme "espace" : CHRS (32) 


G$ 


Comme "guHlemets" : CHR$ (34) 


H 


Pour f ixer HTAB (correction) 


HE 


Poinleur pour conversion Hexa-decirnal 


1 


Nombre de donnees par ligne 


Lt 


Renferme to donnee en cours de soisie 


L 


Longueur de la ligne en cours 


LI 


Longueur de L$ + 5$ 


LB 


longueur de base (n° de ligne + "DATA" 


LI 


(Lignes creees) 


MC 


Pointeyr pour ecron de commandes 


HSetN 


Numero de ligne 


R$ tt R% Chaque caractere saisi par GET 


Si 


Es1 lowirgul© : CHR$ (44} 



100 TEXT : PRINT CHRS <2l>t PRINT : C 

LEAP, : GOTO 605 
105 : 

110 REM «ii»H 

115 REM # ROUTINE DE SAISI E it 
120 REM #-**#*##*##*#*##»#******** 
125 : 

130 HOME :S» = CHR* C44>:E* = CHR* <3 
2): DA* = "DATA" :G$ = CHR* <34>:D* 
= CHRS <4) 
135 HTAB U VTAB 1: CALL - 196: INPUT 
'NUMERO DE LIGNE *;N*; IF N* = " 
" THEN N* = "lOOO- 
140 N = VAL (N*): IF N < I OR N > 640 

00 THEN 135 

145 HTAB Is VTAB 1: CALL - 958j INVER 
SE : PRINT * LIGNE ' * N*: NORMAL 
150 N = N - I 

155 N = N + UNS = STR* <N>rA = A + 1 
: HTAB 15s VTAB is CALL - 668: IN 
VERSE : PRINT N: NORMAL tLl = OsL 
B = LEN (H9) ♦ 4 

160 L*tA> = L*(A) + N* +■ DA*: IF S = 

1 THEN S = 0s GOTO 525 

165 HTAB 1: VTAB 3: PRINT : CALL - 86 
8:1 =1+1: PRINT 1 : : PRINT 1 > 



30 
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"*:PH = LEN ( STR* U)> ♦ 4 
L?0 HTAB PHi VTAB 4: PR J NT L»s i GET R 

*:R% = ASC (R») 
1?5 IF R\ ■ ? AND NOT HE AND L* = " 

THEN INVERSE :HE = J: CALL - 198: 
GOTO 170 
180 IF NOT HE THEN 190 
185 IF R% = 13 OR LEN (L*) = 4 THEN N 

ORMAL i GOSUB 465: R% - 13: HE - 
190 IF RH = 27 THEN GOSUB ?25:MC ■ 1 
195 IF G AND <R% = 13 OR R% = 44> THE 

N L» = L» + G*iG = 
200 IF NOT G AND I = t AND R% = 32 TH 

EN L* = G* + E»:G = 1 J GOTO 170 
205 IF Rk > 31 AND R% < 127 THEN L* = 

L* * R*r GOTO 170 
210 IF L* = * " THEN 225 
215 IF R% = 13 THEN 520 
220 IF R% = 127 OR R% = 8 THEN L* = H 

ID* (LS.l. LEN <L«) - 1)3 CALL - 

1008: PRINT E$: GOTO 170 
225 IF RH = 4 AND L > LB THEN 280 
230 IF R% - 3 AND I < > 1 THEN 360 
235 IF L* < > " OR L < = LB THEN 170 
240 IF R% - 6 THEN 510 
245 IF R* ■ 19 THEN 515 
250 GOTO 170 
255 : 

260 REM ****##*##*#*##*##*#*####* 

265 REM H DEL DEPNIERE DONNEE * 
270 REM #*##*##*#«#**#*#**#**#**# 

275 : 

280 FOR K * L - 1 TO j STEP - It IF M 
ID* (L*<A).K.13 < > S* THEN NEXT 
285 IF K < LB THEN K « LB + 1 
290 L*<AJ = LEFT* (L*CA).K - 1 >i IF L 
EN <L*iA>) > LB THEN L*<A> = L*(A 
) + S* 

295 I * I - 2:L ■ LEN (L*<A?)t GOTO 3 

30 
300 i 

305 REM n NOMBRE DE DQNNEES ? * 
310 : 

315 IF RIGHT* (L»(A>.I) < > S* AND LE 
N CL*CA>> > LB THEN L*<A> = L*<A> 
+ S* 

320 L = LEN CL*tA>):X * Or FOR K * 1 
TO Lt IF MID* <L*(AKI,1> - S* TH 
EN X = X + 1 

325 NEXT il = X 

330 GOTO 535 

335 s 



340 REM «**«tf#*tt*##*«»-*tf**#**#**« 
345 REM M CORRECTION « 

350 REM 

355 f 

360 H - L * ti IF MC THEN CALL - 958: 
MC = 

365 PRINT : VTAB 18: PRINT L*<A>* "is 

L = LEN (LS(A>) 
370 PRINT i VTAB 18: HTAB Hi GET R*tR 

h = ASC <R*> 
375 IF P* < > 127 THEN 400 
380 IF H < = LB ♦ 1 THEN H = LB + U 

GOTO 370 
385 IF H > L + 1 THEN 360 
390 IF H = L + 1 THEN L - L - 1:L*CA> 

- LEFT* tL*<A>,L)i GOTO 360 
395 L»(A) = LEFT* <L»cA).H - 21 + RIG 

HT* (L*(A).L + 1 - H):H = H - ii 

GOTO 365 

400 IF R% = 13 THEN L* = " * : GOTO 315 
405 IF R% * 8 AND H > Ll THEN H = H - 

H GOTO 370 
410 IF R* =21 AND H < L + I THEN H = 

H + 1 : GOTO 370 
415 IF R% - 9 AND L > - H THEN L»t A) 

■ LEFT* (LS(A).H - 1) + ■ * + RIG 

HT* CL$f A) ,L 4 1 - ti): GOTO 365 
420 IF R% < 32 OR R% > 126 THEN 370 
425 IF H > = L THEN L*<A> = L*<A3 + R 

*:L = L + It GOTO 360 
430 L*<A) = LEFT* fL*f A) .H - 1 ) * PS 

+ RIGHT* as(A>.L - K>:H = H + 1 s 
GOTO 365 
435 GOTO 370 



445 REM ««o«*###ft#«*»##*«N#M«««« 

450 REM * HEXA EN DECIMAL « 
455 REM *#v#4»«iMtiitt««ft#«##NftM#o« 
460 : 

465 L* = RIGHT* (("000" + L*).4):P = 
0:Y = 

470 FOR K - 4 TO 1 STEP - 1 :X = ASC < 
MID* CL*.E,1>> - 48: IF X > 9 TH 

EN X - X - 7 
475 Y = Y + (X « 16 * P)tP ■ P + 1: N 

EXT 

480 L* = STR* £Y>: RETURN 
485 s 
490 REM 

495 REM N DONNEE/ L I GNE SUIVANTE • 
500 REM **#-*##*###«#*#***:•:»*«*»## 

505 ! 



TREMPLIN MICRO 
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DATA-GENERATOR <fin) 



510 LS«A) * LEFT* CL«(A)*L — 1 > t GOTO 
580 

515 LSCA3 = LEFT* CL*<A>.L - = 

: GOTO 155 
520 LI = LEN (L» + S*>: IF LI + PH > 

40 THEN VTAB 4: CALL - 958 
525 IF LI + L > 239 THEN L*(A> = LEFT 

9 <L»(A>,L - l):S * til = Oj GOTO 
155 

530 L*(A> = L*(A) + L* + S*:L* = 

535 IF MC = 1 THEN MC = 0: PRINT : VT 

AB 6: CALL - 958 
540 PRINT t VTAB 18 i PRINT LtfAJt: GA 

LL - 958 :L = LEN (L*CA>): PRINT 
545 VTAB i! HTAB 37: CALL - 868: INVE 

RSE : PRINT L: NORMAL 
550 GOTO 165 
555 : 

560 REM #*##*mm#«*»»mm#»ihhm* 
565 REM * FICHIER EXEC * 

570 REM »m**m»##om#»mmmm# 
575 : 

580 HOME ! FOR I = I TO A? PRINT L*< I 
): NEXT 

585 PRINT D*"OPEN F" : PRINT D>" WRITE 
F* : FOR 1=1 TO A: PRINT t»(T>: 
NEXT f PRINT D*" CLOSE F" 

590 i 

595 REM *#*#-*#*#*#*mmm*«*m<c« 
600 REM N MICRO MENU ♦ 

605 REM m#mmmm MM#t##**##M 

610 : 

615 HOME : INVERSE I FOR I = 10 TO 31 
t VTAB 10: HTAB [i PRINT " * : VTA 
B 20: HTAB I? PRINT * *i NEXT 

620 FOR 3=11 TO 19: VTAB I: HTAB 10 
: PRINT ' ' :: HTAB 31 : PRINT ' ": 
NEXT 

625 VTAB 13: HTAB 12: PRINT U VTAB 1 

5: HTAB 12: PRINT 2: VTAB 17? HTA 

B 12; PRINT 3: NORMAL 
630 VTAB Wt HTAB 14: PRINT " EXEC-EFF 

ACEHENT* : VTAB 15: HTAB 14: PRINT 
"AUTRE SAISIE"? VTAB 17: HTAB 14 

: PRINT "FIN DE PROGRAMME" 
635 VTAB 22: HTAB 10: PRINT " VQTRE CH 

QIX S.V.P. ■ :: GET R* 
640 PRINT :R = VAL <R»): IF R - 1 THE 

N 745 



645 IF P = 2 THEN 100 
650 IF R < > 3 THEN 635 
655 HOME : END 
660 : 

665 REM »mm*m*#>i in mm -mi 

670 REM • EXPLICATION 

675 REM »*M«#*4«**##*##*#-**#***-« 

680 : 

685 HOME i HTAB 7: INVERSE s PRINT " 
GENERATEUR DE LIGNES DATA " i NORM 
AL t PRINT 

690 PRINT ! PRINT "CE PROGRAMME PERME 
T DE GENERER AUTANT DELIGNES DE D 
ATA QU'QN LE DESIRE... POURVUOU'O 
N NE DEPASSE PAS DIM <50> h 

695 PRINT • PRINT "<RETORN> VAL IDE CH 
AOUE DONNEE - POUR UNECORRECT I ON , 
TAPER CTRL-C, PUIS UTILISER LES 
TOUCHES <DEL> POUR SUPPRINER ET C 
TRL-I AVANT D'INSERER UN CARACTER 
E" 

700 PRINT : PRINT "POUR EFFACES LA DE 
RNIERE DONNEE: CTRL-D" 

705 PRINT i PRINT "LES LIGNES VONT DE 
1 EN 1 CDEPUIS LE NU-MERO DONNE 
AU DEPART). PASSAGE AUTOMAT I -QUE 
A LA LI ONE SUIVANTE DES QUE L'ON 
AT-TEINT 239 CARACTERES*" 

710 PRINT i PRINT '<ESC> PERMET D'AFF 
I CHER UN RESUME DU TA-BLEAU DES D 
1 FFERENTES COMMANDES. " 

715 POKE - 16368.0: WAIT - 16384,128, 
127: POKE - 16368.0: PRINT 

720 PRINT : GOTO 130 

725 PRINT : VTAB 10: PRINT "SAISIE: D 
EL et <- effacent un CARACTERE — 

CTRL-D efface DERN1ERE DO 

NNEE CTRL-S I igne suivante et C 
TRL-F = FIN CTRL-C = correction d 
ans Id I Igne DATA RETURN = valid 
at ion de la DONNEE saisie" 

730 PRINT : PRINT "CORRECTION: DEL ef 

face - TAB cw CTRL I 

ajoutent un espace - RETURN pour 
terminer. * 

735 PRINT : PRINT "CONVERTIR: Taper C 

TRL-G. puis la valeur 

HEXA C=<»FFFF>." 

740 RETURN 

745 HOME : HTAB 2: VTAB 23: PRINT * EX 
EC F" : HTAB U VTAB 22: DEL 100,7 
45 
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PETITS U III (TAIRES 



DOS ProDOS 



Clement RENARD 



Ou CATALOG devient CAT 



• * • 



et autres corrections mineures 



VOUS venez d'ecrire (ou de recopier) un programme fonctionnant sous DOS 3.3, et vous I'avez 
converti pour qu'i! s'accommode du system© ProDOS. Aucun probleme, bien sur, si ce n'est que 
la commande CATALOG, lancee en 40 colonnes. ne sera pas du meiileur effef ... sauf si vous uti- 
lisez la routine CAT.ALOG pour transformer instantanement les CATALOG de votre programme 
Basic en autont de CAT. 

II peut aussi y avoir incompatibiMte enlre ceriaines adresses du DOS et les adresses corresponden- 
ts de ProDOS. 

En voulez-vous un exemple ? Apres avoir charge un programme en langage machine, on trouve 
Todresse du premier octet en SAA72-AA73 (43634-43635) et lo longueur du programme en $AA60 
-AA61 (43616-43617) alors que, sous ProDOS, ces adresses devlennent respeetivement : $BEB9-BEBA 
(48825-48826) et $BEC8-BEC9 (4&840-4884 1), 

Pour remplacer {toujour* instantonement) une valeur par une autre (de meme longueur), vous utili- 
serez REC.REM (com me RECherches-REMplacer !)■ 

Topez done ces deux micro-programmes, puis testez-les, en respectant les indications donnees d lo suite 
de chocun d'eux. lis oni des ambitions limitees... mais ont le merite de "marcher"... sans deiat ! 



ASSEMBLAGE 



CAT.ALOG 



PAR ProCODE 



Si vous ne possedez 
pas d'os&embteur, 
seule celte partie 
vous concerne. 



0300: 
0302J 
0304: 
0306; 
0308 1 
Q30A; 
030Ct 
030 E: 
0310: 
0312: 
0314: 
03IS: 
03l8t 
03lAf 



A5 67 
85 06 
A5 68 
85 07 
A5 07 
C5 6A 
90 0D 
A5 06 
C5 69 
90 07 
A5 07 
C5 6A 
DO 01 
60 



14 

15 
16 
17 
18 
19 
20 
21 
22 
23 



* ELIMINATION 0E ' ALOG" 

1 » 

2 s 

3 INDEXB EOU *06 

4 INDEXH EOU SO 7 

5 * 

6 ORG *30Q 

7 * 

8 PROG 
9 

10 

11 

12 

13 BCL3 



DANS UN PROGRAMME BASIC * 
— - — — -_- * 



EO'J # 

LDA *6? 

STA INDEXB 

LDA »68 

STA INDEXH 

LDA INDEXH 

CMP »6A 

BCC BCL1 

LDA INDEXB 

CMP *69 

BCC BCL1 

lda inde>:h 

CMP *6A 

BNE BCL1 
RTS 



Aaressage index* CAdrBas) 
Idem <Adr Haute) 



Debut du programme <Ab).., 

et Adresae haute 

Adresse haute dans A.*, 
comparee 4 L0MEM <AdrH> 
Si A plus petit, saut* 
Adresse basse dan a A... 
comparee a LOMEM tAdrB) 
SI A plus petit, saut. 
p)ua grand, a tors on fait 
un nouveau test avec 
Lomeiti ( AdrHaute ) , , -Saut 
. . ,ou fin de travai I * 



TREMPUN MICRO 
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CAT, A LOG (suite et fin) 





to 


IJV 










* 


t 1 P\ fit II" i ftp Ai rr IrtK* Ft 




UU 


i ■ 






RNP 






^1 Hi f f ArdnF Ha 0*- ciirr 
mi ui nereiit u? Ui aaui t 


n^i p - 




LT r 


■-.Li 




r Kir 






OU a 1 Ol3 1 * 1 ptjur nut 41 




Jin 




97 




r tw 


f*fift 




un a o coracer^™ 




R1 




?8 


BCL4 


1 lu 


fSflfi) Y 




, j l n l_i 'j a rr _> ~ . 














*n^fiF Y 

JUL ■ 1 


J 


fx n 1 1 ¥ i 1 1 qa nh 1 ' Aflrocqa na 
CIJ U lb 1 I I fc. E QUI V JJU^C 




nn 


TlP 






RKJP 


Rrr *3 








oo 














V = Y - 1 






r d 






C i' ! L 


DILI 


* 


*5 1 V / S Ha fl ei> i ha 




A^ 


UD 








T wnFVR 


* 


fin a f rniM?^ 1 PAT £ T flf^ 




f A 
L 




^d 




1 _. -J 




■ 


rds □ duu ! L L on 3-dns uc 1 a - 






u o 












un *? . i ij .H l i e p t> J n t t?y r - - ■* 




CD 


UD 








r wnPVR 


■ 


4U J M a Rao etc, . » 


ft ^4 ■ 

J JO *| . 


fi 1 ^ 


U t 










■ 


L n p" r" arno n t" a i i ri h qt* i : 1 1^ - 

i ncr ciiien ! tc a t j ntcr j cur 


ft "Mis, + 


Q w 


•"I l~l 
-.1 u 












□c I a DOUC E c 




PC 


U f 






_ n 


TMnvyM 




r ■' < a 1 M 
^ i d 1 L ' 


ft^A • 










I r Y 
I .i I 






I Btdl C U ^ICIfc *l.f 


il^R- 


R1 


WW 


41 




t na 

— Un 


c sn^ 5 v 


* 
* 


wit tnci vnc w& yu 1 1 i cuit? l y 


1 J sJ-J L/ -4 


Aft 
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run 




4 


en svOvKani ics v«i purs 




r9 

t/~ 




*i J 




fV "J 




* 






JJU 


c o 


-1-1 




niiR 


Rrr ^ 

DC L J 


P 


rion * une autre lecture 




D4 


PF 
r r 


TO 




■D l I 


*PT? 


a 


UKJ 1 i UttrJUU'L L 3 I 




A^ 


UD 


*aO 




_. L T I 


TMHPVR 




un i cvjcni =n ar nsrc ae 


n^46- 


•J ™ 




J7 




opr 






1 Cdsea, par une p&ttc? 




V?Q 


n a 






^Rr 






30U5CraC 1 1 OR v nLUu * 


VJ£J*x ^ P 


t?D 


Uo 


^9 




QTA 
j ! t\ 


TMHPYft 




on n\GX d jour 


fl^4R - 


«V . 

n3 


LI f 






f HA 


1 WDPVM 
1 n Ufin n 




Sons oud i Ler i a r etcnue 




P9 


nn 






■ ' i ' ' ■ 






Allan k 1 ip 1 1 :P T*i Ol ( f~ 1 Zt 


MVlf ■ 


-■•j 


ITl7 
U f 








TNlPVH 
1 It iJ LA n 


1 




035 1 1 


uu 




S3 




PT A 






51V CVr liCL LC UlJULi lei VII 




91 




S4 








■ 


per 1 1 * es va i eurs emp i \ ees 


0354: 






55 








- 




U -_■ -J -u? ■« 


nn 


PA 

r n 






P M ?' 
r h i 


nrr it 








AR 




R7 








* 


C *l UrJ o vJirtt? Ullc flUU c 


0359; 


E U 












i 


m j da i i inn . r> Ha I ^ in rtAV 
III X DC Ci JUUi Uv v jJiweA 


035A* 




z r 


-kJ 7 






i "T 

c 


| 


*Ti Ti I r"il ih 1 i d r* 1 jnr i onno 

aai>3 guui jer i ant lefinc 


n^r * 


OD 


ub 


DU 




T <\ 


X WflPYR 


* 

c 






fit: 


U r 






i . 1 1 • v 


1 NUJiAn 


■ 


PIUS rldUtJ, Ct PaS 












Anr 






QaVdnitaye la CaJDeUac' 


0362: 


65 


07 


63 




STA 


INDEXH 


t 


retenue.,. si el He exists! 




A9 


?n 
.-_ ; .' 








^ i. 


t 


n cnarye dvec I e^P-aCe 




L*4J 






Rn 7 


TMV 




* 


1^1 lis nn rsr^i 1 1" V 

rjus un pt?ur i 


0367; 


91 


u vJ 


uu 




Jin 




I 




03692 


rn 


H4 


■U r 








1 
■ 




036 B: 

www • 


nn 


PQ 








RrF 7 




Mpin •■ onrnro tin h -oi i ^ 1 


036D: 




99 


69 
70 


1 


kf;j 
i - 1 1 1 ■ 


BCL3 


• 


Chit r rpbnur r-iG* rl^^^rl 

* 


036F: 


22 




71 




DFB 


/ ■ 


t 


C'eat ct que I 'on cherche 


0370: 


43 




72 




DFfl 


'C 


; 


pour le transformer en un 


0371 i 


41 




73 




DFB 


'A 


% 


simple CAT... sulvi Qe 


0372t 


54 




74 




DFB 


'T 


; 


4 espaces Cdont notre 


0373 j 


41 




75 




DFB 


"A 


l 


Apple ador* n'a que faire. 
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■■■■■■■——I 



0374: 4C 
0375: 
0376: 47 



76 
77 
78 



MODE D'EMPLOI 



DFB 

DFB 
I j y B 



'I 

'0 
'G 



mats dont ll se moqiue 

£perdumen t . 

Au revoir et Herd! 



B5AVE CAT.AtOG, AJ3M, LS77 



On ne peul plus simple, <T) BLOAD CAT ALOG — (£) LOAD 

PROGRAMME BASIC — (T) CALL 768. 

Vous terminerez par SAVE PROGRAMME BASIC 



REC.REM 






























1 


# RECHERCHEf? UNE CHAINE DAKS UN PROGRAMME ET LA » 










2 


* REMPLACER PAP UNE AUTRE DE LONGUEUR I DENT I DUE * 










3 
A 

5 


« 

INDEXB 


EOU 


$06 


i 

Aarea . i ridex e c Par 1 1 e ba sse > 










6 


INDEXH 


eg:j 


$07 


Idem Partte Haute 










7 


LONG 


EOU 


*FF 


Contjent longueur ctu mot 










8 


CV 


EQU 


S25 


' Position vert:cale curseur 










9 


BUFFER 


EOU 


•200 ! Buffer d'entree fO a la fin) 










10 


CHI 


EOU 


$376 


1 Le mot "REMPLACER: ■ 










11 


CHS 


EOU 


CH1+12 


. Le mot "PARf * 










12 


V EC DOS 


»ou 


$03 DO 


: REPRISE DES E/ SORTIES 


Si vous ne 






13 


STROUT 




$DB3A 


Affiche une chaine par Y, A 


possedez pas 




14 


VP 


EOU 


sFCIA t Remonte le curseur 


d'assembl 


eur 




15 


VTAB 


RDU 


$FC22 


: Deplace le curseur en CV 


contentez-vou s 


16 


HOME 


EOU 


SFC58 


; Efface recran 


de recopier 




17 


INLIN 


EOU 


SD52C 


; Satsie texte sans prompt 


ces codes. 






18 


# 






# 










. 19 




ORG 


$300 












20 


* 






i 


0300: 


20 


58 


FC 


21 




JSP 


Home 


: Le bel ecran que votla! 


0303: 


A9 


15 




22 




LD* 


f$t5 


: On travaitle sur la hone... 


0305: 


95 


25 




23 




STA 


CV 


i 22 (CV va cte a 23; $15=21) 


0307: 


20 


22 


FC 


24 




]SR 


Vtab 


; Mais renseignons J' Applesoft 


030 A: 


AO 


03 




25 




LDY 


£>Chl 


; Part Je haute dans Y, . . 


030C: 


A9 


76 




26 




LDA 


£<Chl 


; et partie basse cans A.., 


03OE: 


20 


3A 


DB 


27 




JSR 


Strout 


: pour afflchage 1 REMPLACER : " 


031 1 ! 


20 


2C 


G5 


28 




JSR 


Inlin 


; Quel est le mot a remplacer? 


0314: 


E8 






29 


BCL2 


I NX 




i X»$FF a la sortie de Inhn 


0315: 


B0 


00 


02 


30 




LDA 


Buffer. X 


; Lect, du mot dans le buffer 


0318: 


9D 


9Q 


03 


31 




STA 


$0390 »X 


: Stocke la ou allleurs... 


031 Bj 


DO 


F7 




32 




BME 


Bcl2 


: Si A n'est pas & zero 


031 De 


86 


FF 




33 




STX 


Long 


: X est sauve dans Long C*FFJ 


031F: 


FO 


03 




34 




BEG 


Bel 3 


; I c i . on passe ■ < - 


0321: 


20 


1A 


FC 


35 


BCL4 


JSR 


Vp 


: sans remontee de curseur 


0324: 


AO 


03 




36 


BCL3 


LDY 


£>Ch2 


: Pour affichage de "PAR: ' 


0326: 


A9 


82 




37 




LDA 


£<Ch2 


f on refait comme plus haut 


0328: 


20 


3A 


DB 


38 




JSR 


Strout 


: et le mot s' affiche 


032B: 


20 


2C 


D5 


39 




JSR 


Inl in 


; Input... X ■ SFF en sortie. 



TREMPLIN MICKO 



35 



REC.REM (suite et fin) 



032 Er 


E8 






40 


BCL5 


I NX 




• 

l 


on lut ajoute I et X = 


rn?F* 

W ^faL — 


an 


DO 


02 


41 




t riA 


Riiffpr V 


i 


' U » I H l noU I ■ I- *- - 




™ W 


AD 


03 






CTA 

win 


*UwrtU ■ A 




OVP1 I I r» il P I rtft-ft fTlA I <Q I A fT\l*l f 

cXp I [Cat lUfib, IUa 13 L Cf JDOt 




DO 












DC J O 


9 


c3* 3twCKt ^i J i t?ut s 


■j j ■_■ i - 


F4 


FF 




44 








* 


T a 1 r\r\ rn idi ir oi-r -6 1 Id Iftftn ri A 


0339; 


DO 


E6 




45 
4A 

4 V" 




BNE 


Be J 4 


t 


Non: & refaire (VP) 




A5 


67 










■ 

+ 


UCLMJl QU ptOyL all III c Dos 1 c 




85 


06 








O L n 




» 




uoor ■ 


A5 


6B 








l nA 


•DO 


| 

j 


T .-"4 a m 3ii a 1 a a ^* 4* i <n Ik. 3 i r t a 

luclll aVeC la palTTlt? rSoUte 


uw*t I ■ 


85 


07 








qTA 

•win 


£ nut? An 














wi 














A5 07 




qpni 


r na 

L. L r. 




















'"'MP 

-.1 1 r 






pd-C Lie naUL? f 


u-JI r ■ 


90 

' \j 


of 




■w*l 






DU 1 D 




jMun - ai i oris vujl jjiuo iui is i 




AS 

rlvJ 


Oft 




ss 




f T1A 




i 
4 


nvuio JiuuD urp'QSOi. LrUiiJcriiJ 


Q34H: 

V W~L" ■ 




69 




WW 




vu r 






nart i a hAQ^# ^ 

^irOL Lie Ua3 JC [ 


Q34D: 


90 


00 

V 




57 

W ' 






Br t 






034F: 


A5 


07 








r da 


1 1 lUCACl 








C5 


6A 




w • 






-l- u. . 




flirt 1 fr k 1 1 ■ t A *j* 
yHi L1C JL43LE LET . 


0353: 


DO 


03 




fiQ 
■_> i. 






Fir 1 6 


« 




0355: 


4C 


DO 


03 

V w 


fit 




TMP 






Hill » r~dfi B iiir A11 rin-ft! FTW 




E6 


06 








" M 

1 ll w 


L 1 IWsA O 


- 
* 


1 1 U3 VIJ t*Uvl 1 t IBCJC7A 




DO 


02 




U J 






ftr- 1 7 




w l i on a u ^ »r ctj ' , i i 


W --'u'-' r 


E6 


07 










f rHov-J 




[qui i nLTrcnaent ct »n<jt?xn 


UWW£> • 


A4 


FF 








r nv 


*r r 


m 


Dp ("■! mflr 3 * l i^f* 1 ~i 1 i"ir i f*i i r~ 

KtrtruPci di J.U3J uc i □ i ui.hU"ul 




Bl 


06 






DVi*LrD 


t ha 




■ 


LcL LUC tr 




DQ 


8F 




£7 






4fl^WF V 




LiUJnpai a 1 sun 




DO 


DC 




DO 




Dl i r. 




* 


iriffydi * r^tour case Ot?pdri 




88 










IKV 




t 


Y - V - t 




DO 


F6 




70 




Wtl Ii 


Dkr I D 


ft 


P a ci 7flrn "T 1 onrnrfl iin h rti i r" 1 




C8 






71 




1 NV 




4 


no inten-an t . on ecr l rc 




B9 


9F 


U -J 


f£ 










jc mot quj refiipia.ee sur 




91 


06 




7T 




Din 






ceiuj qui aa i t disparaicre 


Vv'u ■ 


C4 


FF 




7 J 




I 


»FF 


: 


La roncRJeur esv aCX91nce r 




DO 


F6 




7 

■ j 




DIM L 


Bcl9 


• 


non - on continue 


0374 r 


F0 


CD 




76 




BED 






Retour i )a case depart 


LT J JO r 


52 45 


41' 
















50 


-jr.: 


41 
















43 45 


52 
















3A 






7? 




DFB 


'R.'E t 'M,'P.' 




0380 f 


20 


00 




78 




HEX 


2000 




Un aspace + un z^ro obli- 


0382: 


50 
3A 


4i 


52 


79 




DFB 


'P,'A,'R,'J 






0386: 


20 


00 




8C 
81 


# 


HEX 


2000 




gatoire (fin c3e chajne? 



SSAVE REC.REM. A$30fl, 



u nnc n^CiJDl ni I © BLOAO fiEC.REM - Ci) LOAD PROGRAAAME BASIC. Pour chaque 
MUUC U CWriUI remplocement : CALL 768 {eiioce lo page} ou CALL 771 (pas defacement). 

I'ldiqui-M It.- rr.p1 ca chprrher . pL.-is rcilui r: mplffp h \q place. Es-puc.^: Lf 

lualion sent accepts, mols pot un rrvol tommarKorH par "INT" el pas dovflnlage tes commond^s d« DOS 
(CATALOG, par e*empt*}. N'oubliez po* de sauv#r !o programme rransforrne ! m 



3* 



GUV HACHETTE 



|EU EDUCATIF 



DOS 



ProDOS 



VILLES DE FRANCE 



N jeu instruct!!, conga b hntention des petits et 
v des gronds, par M. DEVAUX* La routine VHLES1M 
est un peu tongue, mois efle permet d'afficher 
irtstantanement la carte de France, Et puis, disons-le, 
ce n'est pas plus aga^ont b recopier que n lignes 
DATA ! A vos claviers ! 




LE PROGRAMME EN BASIC 



188 REM »*#*#**#*****«##•#*»#•### 
119 REM *» VILLES DE FRANCE *# 
129 REM *• PAR M. DEUAUX ** 
138 REM **»##*####*#*#***»*****#* 
148 I 

158 TEXT l NORMAL i PRINT CHR* <2|) l 
HOME 

US PRINT CHR* <4> j "BLGAD UILLES.LM" 
178 LOMEMi 26500: DIM U<3 88> 
IB0 Tl» » "* UILLES DE FRANCE *" 

190 T2* » " ' 

200 SOSUS 298 
210 GO SUB 410 
220 GOSUB 568 
230 60 SUB 1068 
240 HOME ; END 
250 REM DESSIN 
260 HGR 

270 CALL 24576 

280 RETURN 

290 REM PRESENTATION 

380 PRINT CHR* (21 ) : HOME 

310 GOSUB 25B 

320 T* » Tl*tJ - i 

330 VTAB 22: GOSUB 378 

348 T» = T2»; VTAB 23 i GOSUB 378 

350 FOR I = 1 TO 2008: NEXT 

360 RETURN 

370 REM FORMAT AGE DES TITRES 
388 T = (40 - LEN CT*>) / 2 
390 HTA6 T; PRINT T* 
408 RETURN 

418 REM CHOIX DU N OMBRE DE JQUEURS 

428 FOR I = 1 TO 4 

438 N*<I) = "":SC<1) = 



440 TEXT i HOME 

458 Tt = Tl*t GOSUB 378 tT* = T2* 

468 VTAB 3! GOSUB 370 

470 UTAB 8: INPUT 1 Nombr* de joue 

urs ? "jN*jN ■ VAL <N*> 
480 IF N < 1 OR N > 4 THEN VTAB Bs HT 

AB li CALL - 958: GOTO 478 
498 UTAB 12 
-h?' FOP ] - 1 TO N 

511 PRINT 1 Nom du joutur n"* {1 } j 

INPUT ■ ? - ihMJ ( I > 
528 PRINT 
530 NEXT 

548 FOR I = 1 TO 1800! NEXT 

558 RETURN 

568 REM JEU 

378 GOSUB 250 

588 C - C ♦ 1 

599 FOR 1 = 1 TO M 

680 HOME 

618 VTA8 21 i PRINT "Not x ' ;N*(1) i 

628 HTAB 28: PRINT "Score i *jSG<I) 

630 P = 10;A1D* = "" 

640 H = INT C RND <1> * 72) + 1 

658 JF V(H) - I THEN 648 

660 V(H) = 1 

678 RESTORE 

688 FOR J ■ 1 TO H 

690 READ V*,A P B 

708 NEXT 

718 HCQLOR" 7 

728 FOR W » B - 2 TO B + 2 
730 HPLOT A - 2,U TO A ♦ 2,U 
748 NEXT 

(suits au versa) 



TREMPLIN MICRO 



VILLES DE FRANCE (suite) 



758 S* = HH tR* » 

760 VTAB 23: PRINT "Hon d* U will* 

? •}AID$| 
770 PRINT S*n GET S* 
738 IF ASC (S*> = 13 THEN 818 
798 IF ASC <S*) = 127 OR ASC <S*"J = 8 

THEN VTA8 23: HTAB I: CALL - 958 
2 GOTO 750 
836 R* - R* + S*J GOTO 778 
818 VTAB 23s HTAB 1: CALL - 958 
828 IF R* = V* THEN 898 
838 IF P = 2 THEN 879 
848 P « INT CP / 2>:AID* ■ AID* ♦ LEF 

T* <V*,1) 
858 V* = RIGHT* (V* , LEN (V*> - P 
868 GOTO 758 

878 VTAB 23} HTAB 3: PRINT "Li rtpons 

« #t*H i ' ;AID*;V* 
888 GOTO 928 

898 VTAB 23 i HTA8 17: PRINT "EXACT" 
988 SC< I > ■ SC(l) ♦ P 
918 VTAB 21; HTAB 28; PRINT "Score s 
"iSCCI) 

928 FOR T » 1 TO 1588.- NEXT 
938 HCOLOR* 8 

940 FOR Ul = 8 - 1 TO B + 1 
958 KPLOT A - 1 ,U) TO A f 1 ,UI 
968 NEXT 
978 NEXT 

988 IF C = 18 THEN RETURN 
998 GOTO 580 

1888 REM AFFICHAGE OES SCORES 
1818 PRINT » TEXT : HOME 
1828 T* = Tl*; GOSUB 378 
1838 T* = T2* i GOSUB 378 
1848 VTAB 7: PRINT "SCORES :" 

1858 PRINT " * 

1068 VTAB 12 

1878 FOR I ■ I TO N 

1080 PRINT N*< 15 J 1 HTAB 20: PRINT *i 
" ? SC<I> 

1898 PRINT 
1188 NEXT 

1118 VTAB 22; PRINT j INPUT "Une autr 
e parti# ? *}R*J IF LEFT* <W,i) 
- "N" THEN RETURN 
1128 IF R* - "N" THEN RETURN 
1138 IF LEFT* <R*,1) < > "0" THEN 111 
8 

1148 RUN 170 

1158 DATA DUNKERQUE ,137,3,, CALAIS, 138 , 
5, ARRAS, 143, 14, LILLE, 146,8 



1168 DATA AMIENS, 137,22, LE HAVRE ,113, 

28, ROUEN ,122,38,BEAUVAIS ( 135 r 38 
1178 DATA LAON , 1 52 , 28 ,MEZ I ERES , 165 , 24 

, M ETZ , 1 83 , 35 , ST KAS BOO R G , 28 2 , 42 
1188 DATA CAEN, 105, 34, SAINT -L0, 97, 35, 

EVREUX,122,37,PARtS,137 l 41 
1198 DATA CHALGN-SUR-mRNE,l61 ,39, NAN 

CY,1B3,42,C0LMAR,199,53 
1288 DATA MULHOUSE , 1 99 ,61 ,CHARTRES , 1 2 

6 , 48 , BREST , 54 , 45 , QUlMPER , 59 , 54 
1218 DATA 8QUL0GNE-SUR-MER,131 ,9,RENN 

ES,88,53,LE MANS,11 1 ,56 
1228 DATA ORLEANS , 1 32 , 58 , SA.1NT-NAZAI R 

£,81 ,47, NANTES, 89 ,78 
1238 DATA LA ROCHELLE, 95 ,88, BORDEAUX, 

181 ,Ii3,NI0RT,l82,86 
1248 DATA POITIERS,! 12,81 ,8LQ1S, 125,4 

3, TOURS, 117,67 
1258 DATA TROYES ,158,51, CHAUMONT , j 72 , 

53,VES0UL,I84,6i 
1268 DATA BESANCON , 1 84 , 49 , D I JON ,171 ,6 

7, AUXERRE, 153,59 
1278 DATA ANGOULEME , 1 1 8 , 96 , PERI GUEUX , 

M7,187,LIM0GES,125,94 
1288 DATA PAU, 182, 141 ,AGEN , 1 1 4, 1 24 ,CA 

H0RS,I24,119 
t298 DATA MONTAUBAN ,124, 128, TOULOUSE, 

124,134,FD1X,!28,14B 
1388 DATA PERPIQNAN,145,153,M0NTPELLI 

ER,l58,134 1 NlMES t l65,131 
1310 DATA AVIGNON, 172, 129 ,MARSE1LLE,1 

86, 139, TOULON, 186, 142 
1328 DATA NICE, 280, 134, MONACO, 265, 131 

,D16NE,185,I17 
1338 DATA RE IMS ,148,31 t GAP , 1 86 , 1 I 7 , GR 

ENOBLE, 181 ,186 
1348 DATA VALENCE, 171 ,111 ,LE PUY,I57, 

116,AURILLAC, 139,112 
1358 DATA RODE2 , 140 , 122.CLERM0NT-FERR 

AND, 146, 96, LYON, 149, 94 
1368 DATA ANNECY,i85,93,MACON,168,87, 

MOULINS.lSepBS 
1378 DATA NEVERS, 148,74, 



Vous pouvez completer la Itste 
des villes et calculer vous- me me 
les parametres qui vous 
permettront de les positionner te 
plus exact ement possible sur la 
carte de France. 



GUY-HACHETTC 



V! LLES.LM 



(AFFICHAGE DE LA CARTE DE FRANCE) 



4B88- 


A9 


33 


85 


86 


A9 






87 


41F8- 


51 


47 


52 


48 


53 


49 


54 


49 


630*- 


C4 


BA 


C7 


89 


CB 


89 


CB 


98 


4888- 


A2 


87 


28 


EC 


F4 


A8 


81 


Bl 


4iF8~ 


54 


to 


53 


48 


53 


4C 


53 


4D 


4308- 


t* 




CA 


87 


ce 


94 


CB 


83 


4818- 


86 


F8 


IF 


85 


8B 


CB 


Bit 


84 


6288- 


53 


4E 


54 


4F 


55 


58 


55 


51 


63E8- 


CC 


84 


CD 


B3 


CE 




CF 


B3 


49 1 B" 


A4 


83 


AS 


88 


28 


57 


F4 


A5 


4288- 


56 


52 


57 


53 


58 


54 


59 


53 


63E8- 


CF 




CF 


91 


CF 


89 


CF 


7F 


6828- 


86 


18 


6* 


82 


85 


96 




87 


6218- 


5A 


56 


58 


56 


5C 


S4 


50 


54 


43F8* 


DB 


7E 


01 


7D 


Di 


7C 


01 


?B 


- r ;■ - - 


A3 


8? 


IB 


49 


Br 


63 


87 


4C 


4218- 


5E 


56 


5E 


57 


5D 


3S 


5D 


39 


63f8- 


D8 


78 


CF 


7C 


CE 


7C 


CO 


7B 


4838- 


8D 


68 


68 


15 


88 


98 


8A 


8B 


4228- 


5D 


5A 


5E 


5B 


5E 


5C 


5£ 


3D 


44B8- 


CC 


?z 


CE 


78 


CA 


7B 


C9 


?A 


4B3-5- 


B9 


81 


98 


81 


87 


81 


86 


82 


4228- 


3E 


SE 


SO 


5F 


3D 


68 


5C 


41 


6488- 


ca 


7A 


C7 


?9 


C4 


78 


C4 


77 


4848- 


85 


92 


84 


82 


83 


82 


82 


83 


4238- 


50 


62 


5E 


62 


5F 


63 


68 


44 


4418- 


C4 


74 


ca 


75 


C5 


74 


C4 


74 


4fl48- 


&L 


83 


31 


84 


88 


85 


88 


86 


4238- 


4 k 


45 


42 


44 


43 


67 


43 


48 


4418- 


C4 


73 


C7 


72 


CS 


73 


C7 


78 


4658- 


88 


87 


88 


88 


B1 


8? 


88 


8A 


6248- 


43 


69 


64 


6A 


44 


68 


44 


6C 


6428- 


C7 


6F 


C4 


6F 


C5 


4F 


C4 


6E 


4958- 


Pfl 


BB 


91 


8C 


SB 


80 


-M 


8E 


4248- 


44 


60 


63 


60 


62 


6C 


62 


6 5 


642B- 


C3 


40 


C2 


6C 


C2 


6B 


C2 


6A 


4868- 


81 




fit 


18 


68 


11 


7f 


11 


4258- 


61 


4A 


41 


49 


41 


68 


68 


67 


4438- 


C3 


4A 


C4 


4A 


C5 


AA 


C4 


49 


4448 


7F 


12 


7F 


S3 


7E 


13 


7D 


14 


4258- 


5F 


64 


5E 


65 


5E 


64 


50 


47 


6439- 


C4 


69 


C7 


67 


C9 


64 


C9 


45 


4878- 


7C 


19 


•H 


15 


7A 


15 


?¥ 


15 


6268' 


12 


4B 


50 


69 


50 


6A 


50 


68 


4448- 


ca 


64 


C7 


63 


C4 


43 


C4 


42 


4873- 


79 


15 


77 


E4 


74 


37 


75 


17 


4249- 


50 


4C 


5C 


60 


5C 


6E 


5C 


6F 


644B- 


C4 


61 


C3 


68 


C4 


68 


C3 


5F 


4988- 


74 


17 


73 


17 


72 


18 


71 


19 


4278- 


5C 


78 


3C 


71 


3C 


72 


5C 


73 


4438- 


C3 


5E 


C4 


5D 


C5 


5C 


C5 


58 


4898- 


7 A 


LA 


4F 


IB 


4F 


IC 


7B 


10 


4278- 


50 


73 


5E 


73 


5E 


74 


50 


75 


643B- 


C3 




C4 


39 


C3 


SB 


C2 


57 


4898- 


71 


ID 


72 


IE 


71 


IF 


78 


IF 


4288- 


5C 


75 


5C 


74 


5C 


77 


5C 


78 


6468- 


C3 


56 


C3 


35 


C2 


54 


C3 


53 


4898- 


4F 


IF 


6E 


28 


40 


28 


4C 


21 


62B8- 


5C 


79 


5B 


7A 


58 


7B 


5B 


7C 


6448- 


C2 


53 


CI 


53 


ce 


53 


RF 


54 


Q&AM- 


4B 


21 


6A 


/: 


69 


28 


48 


28 


6299- 


5B 


70 


5A 


7E 


5A 


7F 


5A 


83 


6478- 


Dc 


54 


BO 


53 


BC 


53 


BC 


34 


49A8- 


47 


28 


64 


29 


45 


28 


44 


1F 


6298- 


5A 


8J 


39 


82 


39 


83 


39 


64 


4478- 


BC 


57 


BB 


^ 


PA 


58 


89 


58 


48B8- 


43 


IF 


62 


IF 


63 


IF 


48 


28 


MA8- 


59 


85 


59 


B4 


59 


87 


59 


98 


448B- 


B9 


57 


B9 


54 


8A 


55 


BA 


54 


>:rr; - 


5F 


IF 


5F 


IE 


5F 


ID 


5E 


1C 


62A9- 


57 


S G 


57 




56 


89 


55 


09 


4408 - 


89 


33 


B9 


52 


BA 


31 


BA 


51 


48C9- 


SE 


IB 


5E 


IA 


5E 


19 


50 


19 


42B8- 


54 


8C 


33 


BO 


54 


80 


37 


80 


4498- 


BB 


4F 


BB 


4E 


BC 


40 


BO 


4C 


48C8- 


5C 


19 


5B 


tA 


5A 


19 


5? 


IB 


6209- 


58 


8E 


58 


8F 


59 


98 


57 


9\ 


4498- 


80 


48 


BO 


4A 


BE 


49 


BF 


48 


4808 


SB 


IS 


57 


16 


57 


19 


58 


IA 


42C8- 


57 


92 


58 


92 


39 


92 


3A 


92 


44AB- 


C8 


47 


CI 


44 


C2 


45 


C3 


44 


48D8- 


59 


19 


57 


1C 


57 


ID 


58 


3E 


62C9- 


58 


93 


5C 


93 


50 


93 


5E 


94 


44A8- 


C4 


43 


CS 


42 


C4 


41 


C3 


41 


68E8- 


3? 


IF 


59 


28 


59 


21 


5A 


21 


4208- 


5F 


94 


6B 


94 


61 


94 


62 


93 


44B8- 


C2 


41 


C3 


48 


C4 


3F 


C5 


3F 


48E8- 


50 


?? 


c .r-i 


23 


58 


24 


58 


?5 


6209- 


62 


94 


43 


97 


44 


97 


45 


97 


4498- 


C6 


49 


C7 


48 


CB 


48 


C9 


3F 


68F8- 


SB 


26 


5B 


27 


5B 


28 


58 


29 


62E8- 


66 


96 


47 


97 


68 


93 


69 


98 


44C8- 


C9 


3E 


C9 


30 


C9 


3C 


CA 


38 


48F8- 


50 


2A 


5C 


2B 


5C 


2C 


58 


2D 


42E8- 


4A 


98 


4B 


98 


6C 


98 


6D 


98 


44C8- 


CA 


3A 


CA 


39 


.A 


38 


CA 


37 


4188- 


3A 


20 


59 


20 


'j'o 


20 


59 


2C 


42F8- 


4£ 


9B 


6F 


99 


78 


99 


71 


99 


4408- 


CA 


36 


C9 


35 


C9 


24 




33 


61 88- 


57 


2B 


56 


29 


54 


2C 


55 


2D 


42FB- 


72 


99 


73 


99 


74 


99 


74 


98 


4408- 


CA 


32 


CA 


31 


ce 


38 


CB 


2F 


6118- 


54 


2C 


53 


2C 


52 


2C 


52 


28 


6388- 


74 


97 


75 


97 


74 


97 


77 


97 


64E8- 


CB 


2E 


CC 


2D 


CC 


2C 


CC 


2B 


43 L8- 


51 


29 


58 


28 


4F 


2C 


4E 


20 


4388- 


78 


98 


79 


9B 


7A 


99 


7B 


99 


64E8- 


CC 


2A 


CD 


29 


C£ 


25 


CE 


27 


43 28- 


40 


2E 


4C 


2D 


4C 


2C 


4B 


28 


4318- 


7C 


99 


70 


99 


70 


9A 


7E 


9B 


44F8- 


CF 


26 


CF 


25 


E>8 


24 


08 


23 


4128- 


4A 


2A 


4* 


29 


49 


2 c 


49 


27 


6319- 


7F 


9A 


98 


9A 


81 


9A 


82 


9B 


64F8- 


CF 


22 


C£ 


22 


CO 


22 


CC 


21 


4138- 


48 


26 


47 


27 


44 


27 


45 


28 


6328- 


83 


*C 


83 


r\> 


84 


9E 


05 


9F 


4588- 


CB 


21 


CA 


21 


C9 


21 


C8 


21 


4138- 


44 


28 


43 


2? 


42 


28 


42 


29 


6328- 


84 


A8 


87 


9F 


88 


9F 


89 


9E 


6588- 


C? 


21 


C4 


28 


C5 


21 


C4 


21 


6348- 


41 


29 


48 


29 


3F 


29 


3F 


2A 


6338- 


Sft 


9E 


3D 


9E 


BC 


VP 


BE 


9F 


65L8- 


C3 


21 


C2 


21 


CJ 


28 


C8 


?B 


4S48- 


3E 


2A 


30 


29 


3C 


29 


38 


2A 


6338- 


8F 


9F 


98 


9€ 


9t 


9€ 


92 


90 


4518- 


BF 




BE 


23 


BO 


28 


80 


IF 


4338- 


3A 


2A 


39 


29 


38 


29 


37 


2A 


4346 


93 


9D 


94 


9E 


95 


*E 


96 


*E 


4528- 


BC 


IE 


r.: 


3D 


88 


IC 


BA 


10 


4159- 


36 


2B 


35 


2B 


34 


2C 


34 


2D 


6348- 


97 


90 


94 


9C 


95 


9B 


94 


9A 


652B- 


B9 


iC 


88 


L8 


B7 


LB 


B6 


IC 


4168- 


34 




34 


2F 


35 


2F 


34 


2E 


6338- 


94 


99 


94 


9B 


94 


97 


93 


96 


4538- 


B5 


3C 


94 


IC 


93 


IB 


B2 


1A 


4148- 


37 


2E 


39 


2E 


38 


2F 


29 


2f 


6358- 


94 


95 


94 


94 


94 


93 


95 


92 


4539- 


Bl 


IB 


Be 


LB 


B8 


LB 


AF 


it; 


6178- 


3A 


38 


39 


31 


38 


31 


37 


31 


6368 


96 


91 


97 


98 


98 


8F 


99 


6F 


4548- 


AE 


30 


ai; 


*A 


AC 


19 


A8 


19 


4178- 


34 


31 


35 


31 


34 


32 


38 


32 


6348- 


9A 


9F 


98 




9C 


80 


9I> 


8C 


4549- 


AA 


18 


A9 


1? 


A6 


16 


A8 


IS 


4 3 ee 


3? 


33 


38 


34 


37 


34 


34 


34 


6378- 


9f 


8B 


9F 


8A 


A8 


BA 


Ai 


B9 


4538- 


A7 


14 


A7 


33 


A7 


L2 


A7 


11 


4i ee- 


33 


34 


35 


35 


34 


34 


3? 


37 


6379- 


A2 


9^9 


A3 


9A 


AA 


88 




80 


6558- 


A4 


18 


A3 


tl 


A4 


1 L 


A4 


13 


4199- 


37 


38 


38 


39 


39 


39 


3fi 


38 


63BB- 


f\6 


a 8 


A7 


8B 


A3 


8B 


A9 


8C 


4348- 


A4 


13 


A3 


33 


A3 


14 


At 


14 


4198- 


3B 


38 


3C 


36 


30 


38 


3E 


39 


638B- 


m 


90 


A8 


90 


AC 


ac 


AO 


SB 


4568- 


Mil 


14 


9F 


13 


9E 


12 


9F 


11 


61AB- 


3f 


39 


48 


39 


48 


3A 


41 


3B 


6398- 


AE 


88 


AE 


8A 


AF 




BB 


89 


4578- 


9F 


1B 


'F 


8F 


9E 


BE 


90 


8E 


41A9- 


42 


3A 


43 


38 


44 


3A 


45 


38 


4398- 


Bl 


CLh 


Bl 


96 


88 


8C 


Bl 


80 


4578- 


9Z 


8£ 


98 


80 




80 


99 


8C 


6IB8- 


45 


3£ 




30 


43 


3E 


44 


3F 


63Aft- 


82 


80 


83 


= t 


84 


8E 


85 


8F 


4598- 


98 


«B 


97 




94 


89 


95 


8A 


61B8- 


47 


3E 


40 


3E 


49 


30 


4ti 


30 


63A9- 


94 


9F 


97 


9F 


98 


9F 


89 


■5 a 


45B8- 


94 


8A 


94 


85 


94 


87 


94 


86 


6ICB- 


46 


30 


4C 


3E 


4B 


3F 


4A 


3F 


6368- 


BA 


98 


88 


?8 


■=L 


?B 


SO 


98 


4598- 


93 


86 


92 


94 


91 


* c 


98 


84 


41C9- 


46 


48 


4C 


48 


4D 


48 


4E 


48 


6389- 


BO 


91 


BE 


91 


9F 




C9 


AB 


4598- 


8F 


86 




85 


BE 


85 


80 


84 


4108- 


4t 


41 


4E 


42 


4D 


43 


4E 


44 


63C8- 


CI 


98 


C2 


8F 


C3 


8E 


C4 


8E 


45A8- 


ac 


64 




83 


80 


82 


BB 


81 


6108- 


4F 


45 


58 


45 


51 


44 


32 


44 


63C8- 


C5 


90 


C4 


3C 


C4 




C5 


88 


45A9- 


88 


88 


98 


89 


FF 


FF 






4J£8- 
41E9- 


53 
55 


44 
44 


54 
54 


44 
44 


53 

53 


44 
44 


52 


45 
44 


















BSAVE VIUES.LM. AS6000 . L$5AE 



VERIFICATION 



| T = : FOR I = 24576 TO 26029 : T = T + PEEK{I) : NEXT ; PRINT T IWsultot : T5M25 
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LAN GAG I MACHINE CBF ; 



NESTOR 



CADRE-DEM O 

en reponse a monsieur ANSELME 

NOS iecteurs se passionnenf pour les cadres en longage machine, rnais les resuftats 
obtenus ne leur donnent pos toujours sotisfaciion. Exemple ; I'essai (guere plus 
rapid© que le Bosk) de notre ami Bernard ANSELME, Le void... expltque, dans sa 
version original© (on poque le caract&re b utiliser 6 Sodresse 6 : 32 pour un ©space en 
mode inverse, 170 pour I'asterisque, etc.) 



93m- 


20 


58 


FC 


JSP 


♦FC5S 


HOME efface I'eeran 


0383- 


A5 


06 




LDA 


♦ 06 


On r4e.upe.re en 06 le caractere a off icher 


0385- 


A2 


2? 




LDX 


£♦29 


On va afficher 41 caracteres (1 ligne 4- 1) 


8307- 


28 


ED 


FD 


JSR 


t-FDED 


COUT sort un caractere 


830A- 


CA 






DEX 




X = X — "1 


838B- 


D0 


FA 




BNE 


♦0387 


Si X est super ieur b Q. bauele 


030D- 


A0 


16 




LDY 


£♦16 


Pour FOR Y = 1 TO 22 ($16) 


038F- 


A2 


26 




LDX 


£♦26 


Si X = $26 (38), la routine... 


0311- 


20 


4A 


F* 


JSP 


♦F94A 


...PRBL2 va envoys r 30 ©spaces 


0314- 


A5 


06 




LDA 


♦86 


On recuperet on 86 le caroclere-cadre 


8316- 


20 


ED 


FD 


JSR 


♦FDED 


Affiehage en bout de ligne, puis-,. 


0319- 


20 


ED 


FD 


JSR 


♦ FDED 


... au d6but de la ligne suivante 


031C- 


88 






DEY 




Y = Y — 1 


831D- 


Di 


F8 




BNE 


♦ 038F 


Si Y superieur a 0, boucle 


831F- 


A2 


26 




LDX 


£♦26 


Poor FOR X = i TO 38 ($26) 


8321- 


28 


ED 


FD 


JSR 


•FDED 


Affichagc 


8324- 


CA 






DEX 




X = X — 1 


0325- 


D8 


FA 




BNE 


♦8321 


Si X differenl de 0, encore un tour 


0327- 


84 


25 




STY 


♦25 


Ramener l<t curseur en haut de I'ecran 


832?~ 


8D 


F? 


07 


STA 


*07F7 


POKE le dernier carqetere pour... 


832C- 


68 






RTS 




, , , *vit«r le SCROLL 



Bien sOr, on (e soit, nous avons public plusieurs routines capobles de tracer (instanta- 
n^ment) tons les cadres desires, mats j'ai voulu montrer avec la modification ci- 
dessous (le nombre destructions est le mSme, et la longueur est identique a un oefel 
pres), qu'il est possible, tr£s ^implement, en utihsant les sous-programmes de I'Apple, 
d'oco§l£rer consid^rablement un programme, 

Dans la routine de Bernard ANSELME, 
le manque de rapid ite est d0 a PR6L2 
($F94A) qui affkhe successivemenl x 
©spaces (38 dans le cas etudi#)*,» mals 
22 fois I 

Avec mo version (totalement identique 



8380- 


29 


5? 


FC 


JSR 


♦FC58 


0383- 


A5 


96 




LDA 


♦06 


8305- 


A2 


29 




LDX 


£♦29 


0387- 


20 


ED 


FD 


JSP 


♦ FDED 


830A- 


CA 






DEX 




8396- 


D0 


FA 




BNE 


♦0307 


830D- 


A2 


16 




LDX 


£♦16 



GUYHACHETTE 



par ailleurs), SFC62 (CR) envoi© un 
refour chariot, pui$ $FC10 (BS) recule 
le curseur, ce qui le romfene b \o fin de 
la ligne precedents Les deux $FDED 
affiehent alors le caractkre de fin 
ligne... puis le premier de la ligne sui- 
vante r et alnsi de suite, 

80 CQIONNES 

Le programme fonctionne de la mime 
maniere en 80 colonnes. mate il faudra 
modifier te contenu des adresses $306 
($51 ... 81 , ou Neu de $29... 41} et $320 
($48... 78 au lieu de S26.., 38). 



038F- 


: 


- .: 


FC 


JSR 


*FC62 


0312- 


28 


18 


FC 


JSR 


♦ FC10 


031 5- 


A5 


86 




LDA 


*96 


8317* 


28 


ED 


FD 


JSR 


*FDED 


031 A— 


28 


ED 


FD 


JSR 


♦ FDED 


831 D- 


CA 






DEX 




831 E- 


D0 


EF 




BNE 


*038F 


8326- 




2d 




LDX 




0322- 


28 


ED 


FD 


JSR 


♦ FDED 


8325- 


CA 






DEX 






D0 


FA 




BNE 


*0322 


9328- 


3- 


25 




STX 


*25 


032A- 


8D 


F7 


87 


STA 


*07F7 


032D- 


68 






RTS 





AFFICHAGE NORMAL : POKE 6,32 (par example), puis CALL 768 
HOME : CALL 771 EFFACEMENT DU CADRE : POKE 6,160. puis CALL 771 . 



CADRE SANS 



Merci de votre attention et bonjour chez vous 



Voire NESTOR, 



Le POINT suv : RND 



Cest, vous le save*, la traduction de 
RANDOM (hasard). On utilise souvent 
cetle fonction dans des jeux ou inter- 
vient ie hasard, Comment ? 

X = 1 + INT(RND(1) * 9) 

Au depart, avec RND(l), on obtient un 
nombre Compris entre et 1 „ En 1© multl* 
pliant par 9,, on aura done un nombre 
ol&atoire compris en et 8. En lui qjou 
tanl 1 , it sera compris entre 1 el 9. 



QUESTION 

Comment obtenir un nombre compris 
entre 21 et 30 ? 



REPONSE 

X = 21 + INT(RNDfl) * 10) ... 

+ 21 a 9 + 21. 

RND(fl) permet de sortir le nombre atea- 
ioire obtenu d parti r do precedent RND. 




Di A JOUER 



Pour simuler le jet d'un de 6 jauer, ulilisez 
X = 1 + INT{RND(1) * 6) 

ARGU MENT NEGATIF 

Dans cet exemple, — ou RND(— 1 ) est le 
premier appel de la fonction — r on 
obtiendro toujour* la rnSm-e liste de 
nombres... oleotoires. 



100 X = RND (—1) 

110 FORI b 1 TO 20 

120 PRINT RND(l) 

130 NEXT 



TKEWIPLIN MICRO 
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• MANDRAGORB 

de Marc Cecchi (Infogronws) 

Neuf donjons... neuf enlgmei 6 
elueider pour affronter Yarod-Nor 
dans son prqpre donjon ; Mais qui 
es1 cet Strange petwrrnpgo 9 Un 
infame lyran, btan »ur, qui fait 
regner le maJ et la Jerrour sur le 
pays de Marvdragore.. Comment en 
est-on arrive 16. alors que tolme et 
bonis caroereTlsakent I* riant 
royaume du rol Jorlqnd ? L 'affaire 
rernonte au moment ou une pluie 
d'etailes filontes sabat sur la con 
Ir4* q% met dromatiquement (In au 
rirgne du bon roi... aussilat rem- 
place par un sofcgneur venu de 
null* purl, It- iinUins Yarod-Nor. 

Av« un Apple f7, dote d un mini- 
mum do A& K, vous poorre2, aprfcs 
avoir con$1lru6 une equipe de qua- 
tre "h*ro*' • portlr 6 t'altoque des 
neuf donjon*.., 

(Cflligiyifr "Avrnirure" dflictfc. 10-20 ans, 
Un livref + une dl&quentdoublt foes). 



IEUX 



sur APPLE 



• HOLD UP d% N'Guyen Von 
Huong, J.-D. Blonc 

&1 C Queant (hhgromes) 

Attention ! dans ce jeu daventure 
(10-15 ara) t il va y avoir un cer- 
veou, un clochara, un receJeur, 
une passant*, plusieurs flics et — 
evrdemment I — quelques indies. 
Le decor esl onthanteur : la Cote 
d'Azur, ses palmiers, *a Prome> 
nod* des Anglais, sa plage.,, et so 
capitate en*oleiflee, Nice. 

se passe en pleine canlcule, au 
rnol* d'ooOt, pendant le week-end 
et il *'e>glt — vous vous en doutiez 
un pau, non ? — de devoliser une 
banquo, puis de s"enfuir a letron- 
ger. flon, <e nest po* tre* moral, 
d'accord- Ce n'est qu'un jeu, et 
puis le c«rv«ou — VOUS... ma is 
oul 1 — aura toot a crairtdre de la 
police el de ses indies., . surloul ('il 
n'a pas su s'entourer de fid&lv* 
complices, blen preparer son 
coup... et trouver les objets neces- 
soirff* 6 so realisation, Je ne vous 
souhaHa pas bonne chance.-, car 
ce sorelt oncourager 3e vice ! 

• COLOMAGES (Version Soft) 

Vingf coloriages (<n*«clQ*, ani- 
rnaux de la jungle, anJmoux Jami 
liers), sur deux disqueMes ; de 
quol occuper fes artistes en herbe 
pendant plusieurs heures I 
L'enfont dispose d'une palette de 
tubtfs de couleuT et d'un pinceau. 
A lui. en utlUswit la souris. de 
1 remper le pinceau dans la couleur 
de son choix pour oblenJr le meif- 
Seur effef possible \ Jeu educahf 
i'S| en A conseifler, 
Fomtcn^ iur Appie A't ou fte IJB!(, ovk tawuris 




• PUZZLES (Version Soft) 

Dans so "Collection Souris'", Ver- 
sion Safo propose aux enf ant* un 
excellent choix de IS puzzles (ani- 
mauK de lo ferme, de la jungle el 
de la pr^histoire). Ufitisarkm on ne 
peut plus simple . Tenfanf chorsll 
un sujet, clique dessus, el l image 
OpparaFt {le graphisme est fort 
rdussi). Ouand il eslime avoir bien 
ob*ervd i'onrmal, il clique de nou- 
veou... el l image eclale en fnor- 
ceaux. Le jeu consist*, on sen 
doute, a recanstituer f antmol qui, 
en guise de recompense, a la gen- 
rillesse d^s r onimer, 
Fonctionne si#r Apple He *t Apple tie 
12fl K... avec la sovfit- 





* ARCANE par Luc et Vivione 
54rard (Version Soft) 

Ce logsclel utilise l inlerproiour gro' 
phique Arlequin [Choi Mauve) dl if 
Fcwlctlonne sur Apple tk ou tte (fevl- 
»ton B}, avec une carte 80 colonnes 
4t#ndue. Un monireur couleur n r est 
pas Indi^penKible, mais conseiJfe. 

Avec Arcane, voire Apple se rrani* 
forme en un veritable devin ■ ctvec 
Mireille. une voyante extra^lucida 

Arcane o efe realise par des specia- 
lises du rorot de Marseiile el, 
comme vous ie savez, 16-bos, nos 
amis ne plaisantent que dans les hls- 
Folres difes marieillaises 

A s'offrlf pour animer une soiree 
f680FTTC). 

CUY-HACHETTE 




DOS 



ProDOS 



SONDAGE 



SUR » Bl 



f* E courl programme n'sst qu'une demonstration, San but : vous montrer qoll est facile 
^ — et ^conomique I — de m£moriser sur un seul octet la r^ponse b hult questions. 
Comment ? tout simplement en utilisont les huit bits de chaque octet, Dans notre exemple, 
cela se passe de la maniere suivante : 



7 
6 
5 
4 
3 
2 

1 





= Femme 1 = Homme 



Un seul sera b 1 . celui cor 
respondant 6 la tranche 
d r 6ge choisie 



ou 1 selon la reponse oux 
questions 1 et 2 



Un© mini-routine en langage machine 
transform© le nombre binaire (RE$) en 
un octet HEXA, ma is on obtiendrait le 
mgme r^sutfot en basic (revoir, 6 ce 
sujet, le programme de conversion paru 
dons Trempf in Micro n 6)- 

NOTA : les resultats son! totalises au fur 
et b mesure (Mgnes 255-260), 



Les donn^es sont rndmorisees sous 
forme de fichier B (de 8176 6 ...x). Les 16 
premiers octets servent a memoriser les 
rdsultots (deux octets par item), A portir 
de 8192, on trouve la valeur Hexa cor- 
respondant 6 cheque questionnaire. Le 
dernier octet est d zdra. 

ANALYSE PES RESULT ATS 

On peut imaginer un programme capa- 
ble d'anafyser les resultats en s^tection- 
nant tel ou tel bit de chaque octet. Nous 
donnons plus loin un exemple montrant 
comment compter tes hommes, Sachant 
que le bit 7 est d 1 pour un homme ef a 
pour une femme, il est Evident que tout 
octet superieur a 7F (01111111) design© 
un homme {le 7* bit passe h 1 h partir de 
la valeur $80). 

A vous, ami© Lectrice, ami Lecteur, de 
plancher un peu sur ces problemes ! 



SON D AG E. BAS 



188 TEXT t NORMAL i PRINT CHR* (21) ! 
HOME 

105 GOTO 358: REM ROUTINE LM ET FICHI 
ER BINAIRE 

110 FOR I = 1 TO 18 sT* ■ T* + ' "s 

NEXT 

1 1 5 PRINT "SAISIE DES RESULTATS* s VTA 
B 2: PRINT T*: POKE 34,3 

120 POKE 32,27! POKE 33 1 1 3 1 PRINT i H 
OME 

125 PRINT "HOMME ■ 4*1 PRINT "FEMME - 
8" 

138 PRINT : PRINT "1B-24 ANS t I " {"25 



-34 ANS ; 2" \" 35-49 ANS : 3"j"58- 
64 ANS ! 4* {"65 ANS 4* 3 5* 
135 PRINT "QUESTION 1 QUESTION 2 

0-NON 1- QUI" 
148 PRINT i PRINT "FIN = ESCAPE" 
145 POKE 32 t 8s POKE 33,25; PRINT 
158 Q = Q * It HOME i INVERSE i PRINT 

Q : NORMAL 
155 RE* = •* 

168 PRINT : UTAB 6i PRINT "SEXE * j ; G 
ET R»s IF R* < CHR* (48> OR ft* > 
CHR* <49> THEN 160 

165 PRINT R*:RE* = RE* ♦ R* fc 



TREMPLIN MICRO 



SON DAG E 



SUR B BITS (suite> 

170 PRINT s UTA8 6: PRINT 'AGE '}i Q 
ET R*: IF R* < CHR* <49) OR R4 > 
CHR* (5D; THEN 170 

J 75 PRINT R* 

180 FOR 1 = 1 TO 5 

1B9 IF I » UAL (R*> THEN RE* - RE* + 

M # ! GOTO 195 
198 RE* = RE* * "9* 
l«f NEXT 

280 PRINT : VTAB Ids PRINT "QUESTION 

1 •;: GET Mi IF R* < CHR* <49) 
R R* > CHR* (4?) THEN 268 

205 PRINT R* jRE* = RE* + R* 

218 PRINT ; UTAB 12s PRINT "QUESTION 

2 "js GET R*j IF R* ( CHR* <48) 
R R* > CHR* <49) THEN 219 

213 PRINT R4:RE* * RE* + R* 
220 PRINT s INVERSE i PRINT RE*! NORN 
AL 

225 PRINT ! VTAB 22s PRINT "<1> SUITE 
<0> i^NNULE " J : GET R* 

239 IF R* * CHR* <27> THEN 245 

235 IF R* < CHR* (48> OR R* > CHR* (4 
9) THEN 225 

240 PRINT R*; ON VAL <R*» + I GOTO 15 
5, 245 I GOTO 275 

245 FOR 1 = 1 TO B:U = (/AL < MID* (RE 

*,],]>) 
259 J ■ <1 * 2) - 2 
255 P - PEEK (RE * J) ♦ Vi IF P = 256 
THEN P = 9s POKE RE + J + 1 , PEE 

K (RE ♦ J ♦ I) ♦ V 
269 POKE RE + J,P 
265 POKE I ♦ 794 ,Vi NEXT 
278 CALL 768! POKE AD * 0, PEEK C6> 
275 IF R* < > CHR* <27) THEN 159 
289 HOME 



235 INVERSE ! PRINT 0" QUESTIONNAIRES 

■j NORMAL : PRINT 
290 PRINT fP - 2t GOSUB 345 r PRINT ' 

de 18-24 ans" 
295 pi 4; GOSUB 345t PRINT " de 25-3 

4 *ns« 

380 P = 6: GOSUB 345s PRINT ■ de 35-4 
9 ins" 

305 P = 8: GOSUB 345: PRINT * d* 59-6 
4 ahs' 

318 P » 18t GOSUB 345i PRINT " de 65 
ant &+• 

315 PRINT ! PRINT "QUESTION I = *;:P 
« Hi GOSUB 345: PRINT * OUT 

329 PRINT ! PRINT "QUESTION 2 m a f:P 
= 14: GOSUB 345: PRINT " OUT 

325 PRINT ! PRINT iP = 9: G0SU8 345! 
PRINT ■ homines - m ]0 - PE; " Hum 
S" 

330 POKE 32, Qt POKE 33,49! PRINT : PR 
INT T* 

335 Q ■ Q + It POKE 8191 + Q,8iQ ■ Q 
+ 16 

349 PRINT i PRINT CHR* (4)"BSAVE SONO 
AGE, A 8176, L'Q: END 

345 PE = PEEK (RE + P> * PEEK (RE •* P 
+ 1> * 256i PRINT PEj! RETURN 

359 FOR I - 768 TO 784 ! READ Rt POKE 
I ,Ri NEXT 

355 AO = 8191 : RE - 8176 

360 ONERR GOTO 375 

365 PRINT CHR* (4>"BL0AD SONDAGE" :Q = 
< PEEK (43616) ♦ PEEK (43617) * 
256) - 17: REM 48840-41 SOUS PROD 
OS 

370 GOTO 110 

375 IF PEEK (222) » 6 THEN Q = 0j FOR 
1 = RE TO ADt POKE 1,6: NEXT ! G 
OTO 118 

350 DATA 169,0,162,9,24,126,17,3,42,2 
32, 224, 8, 208, 246 t 133, 6,96 ■ 



Combien d'hommes ? 



8300- 


A9 


09 




£*00 


9302- 


85 


Ui 


STA 


*06 


0304- 


85 


8B 


STA 


*99 


9396- 


85 


99 


STA 


♦09 


9388- 


A9 


20 


LDA 


£*20 


030A- 


85 


97 


STA 


*87 



Ce court programme compte tes octets 
dont le bit 7 est 6 I (Homme). 



L'adresse de depart est ecrite en $6-7 
(00243). 

Deux octets sont prevus pour le eomp- 
teur : $8-9 
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nt 


lj n 

'J u 






ft oft r _ 
Jot 


A 1 
H 1 


oo 




/■tax Yl 
i n j A J 


W J I u * 


PA 
ro 


1 A 


P' r n 


V« li.;. 






V C' 


DrL 


f « O J H 


n "in .i 


r - 

CO 


aa 
k . >. 


J ML 




n ~ i £L- 

o Jl 6 


no 


a*? 


Dt-lC 
fcHNfc 


■ .J. * j 1 A 




CO 


A? 

O 7 




*flQ 




E6 


H 


INC 


*e<* 


B31C- 


D8 


92 


BNE 


*8328 


831E- 




0? 


INC 


*97 


328- 


09 


EC 


BNE 


*939E 


8322- 


48 




RTS 





X = pour adresscKj© indire-ct 

lecture de la memoirs indiqu£e en $6-7 

SI c'est un z4ro. on □ termini 

SI n = 0i c'est une femme 

Si c'est un homme, on increment© le compteur 

A-t-on oblenu (SFF+1) ? 

Si oui, i\ faul Incr^menter f'odresse haufe 

+ 1 pour I'index (adresse basse). 

of 4-1 pour la portie haute si on □ depasse $FF 

6t on recommence 
Fin de travail. 



Apres on CALt 768. on lira le resultat par un N s PEEK(S) + PEEK(9) * 256, Quond on est sur 
de ne pas d^passer 255 {$FF}, II n'esf pas n^cessoire de pr^voir 2 octets pour le compteur. 



AUTRE EXEMPLE 



On desire savolr combien do personnes de sexe teminin (bil 
7 b 0), oppartenanf b \o premiere tranche d Sge (bit 6 6!) 
ont repondu par oul 6 la question 1 . Pour facilfter la compre- 
hension, nous testons (bit 16 1), les trois bits a tour de role (il existe un outre moyen). 



8399- 


A« 


99 


L[ H 


£*88 


9392- 


85 


06 


STA 


*B6 


9304- 


85 


09 


STA 


108 


9306- 


95 


0? 


STA 


*09 


8388- 


A? 


20 


LDA 


£*28 


939A- 


B5 


0? 


STA 


*87 



Voir la premiere routine. 

Ih encode, on a prevu deux octets pour 

rasuhat ; $8-9 



If 



838C- 


A2 


00 


LDX 


£*B8 




830E- 


Al 


06 


LDA 


C*86 t X) 




9310- 


FB 


1A 


BEQ 


*832C 




9312- 


39 


19 


SMI 


$9324 


Si n = 1 , c'est un hommt : on saute ( 


9314- 


29 


48 


AND 


£*48 


$•40, c'est 01000000, pour tester le bit 6. Si on 


9316- 


F9 


OC 


BEQ 


*8324 


obtient 9, on passe**. 


83! 8- 


Al 


06 


LDA 


r*96,X) 





931A- 


2? 


82 


AND 


£*02 




931C- 


F9 


86 


BEQ 


*8324 




931E- 


Li 


98 


INC 


*88 




932B- 


D0 


92 


BNE 


*0 324 




8322- 


E6 


19 


INC 


*89 




8324- 


E6 


86 


INC 


*06 




9326- 


D8 


02 


BNE 


♦ 032A 




0328- 


E6 


97 


INC 


$87 




032A- 


D8 


E2 


BNE 


4839E 




032C- 


40 




RTS 







$Q2 t c'est 00000010. pour tester le bit 1. 
obtient 0, on posse... 



Si on 



AAemes explications que pour Pexernple n°l 



QUESTION : Pouvoit-on rnccourrir le programme ? REPONSE : Out COMMENT ? 



TAEMPUN MICRO 




POMME D'QR 1983 du meilleur logic id Apple 
(cat&jorie gestion), CX H^RAKLES a fait ses 
preuves depuis longtemps. 
Capable, sans disque due,, de g6rer 500 comp- 
lex il s'adresse a bon nombre de nos lecteurs. 



• SIMPUCITE DABORD 

Destine aux artisans, cammer- 
tants et travailleurs indepen- 
dents, CX HgRAKLSS t* devnit 
d'etre facile 6 mettre en ceuvre, 
En foit, de* I* premier contact 
avec c* logiclel. on ressenl la 
volonte de dialogue. On sait 
que telle operation est en 
cours, mais on apprend aussi ce 
qu'il est n<^ce$$oire de fa ire 
pour passer a letape suivante. 
L'uttlisateur est guid^ pas a 
pas. Le temps d apprentice 
ne rfeposse pas quelque* heu» 
re* (1 heure aftirme la docu- 
mentation, mal* elle est tout de 
m*me optimist* !}, 



POINTS FORTS 

Les tris sont effectu&s a la fin 
d'une period© de sorsie, of in 
de ne pas interrompre celle- 
ci et do minimise* to temps 
pass£ b attendre devant 
Tecran. 

En caurs de saisie, il est 
facile de changer de journal. 

Lo chovauchement de deux 
exercices esl aulomalique. 

Toutes les commands* sont 
dirig*i*>5 u partif d'un nom- 
bre minimum de touches, 
toujour* les memes 3 
ESCAPE, RETURN, OUI et 
NON, 

Exploitation des fichters par 
d'autres programmes (Visi- 
cak r Apple Works r Business 
Graphics). 



Nunv&rotation 
nologique de 
ture, pour une 
lite fi stale. 

6 



interne chro- 
< hnqm? e^Cfi- 
r£el)e cr£dibi- 



contre-parties 
aulomatiques 



Journaux 
multiples 

(tusqu'6 6). 

Edition de compt« r jour- 
naux, balances {b I'^cran ou 
sur Imprimonta}. 

Edition journal par journal 
du tolal des rnouvements 
cr£ditevrs et d£biteurs en 
une seule operation. 



* PRESENTATION 
OiSJQURNAUX 

t« joornoux sont pr^sentes en 
colonnes. exacfement com me 
sur les livres comptables. Une 
cl6 de contrdle permet de 
s'assurer de la vatidrt4 de cha* 
que numero de compte. 

En comptablllt^, II est agreable 
de poss£der un document uni- 
que, facile a manier, regrou- 
pant toutes tes Ventures poijr 
I'annee pass^e pour un compte 
partitulisr. CX H$RAKti$ focX- 
ftfe t'assvmbtege chronolagi- 
qu& cte toisf&i te& pages d'un 
mJme £omp*e_ En effet, dans 
I'&ditfcon du grand Uvre, il fait 
un saut de page h chaque chan- 
gement de compte et pagine le 
compte 6 parti r du dernier 
numero de page enr*gtetr4 lors 
de la derniAre cl&lure period i- 
quo du mcHTitt compte. 
■■■■■ *» ■■ ■«— ■ 



• secuHiri 

Si vous esperez bidouiller vptre 
comptabiJite avec CX HERA- 
KLtS. n'aller pas plus lorn. Le 
programme n'autorlse absolu- 
menf pas les corrections... ille- 
gotes. La *eule focon de recti- 
fier une erreur est de posser 
une contre-ecriture, puis de 
resaisir ta bonne Information. 
La securrt6, e'est aussi rimpo*^ 
%lbllil6, pour une personne nan 
aulorlsee, d accede r aux corn- 
mandes. Le maTtre, e'est le res- 
ponsable numero un de la 
comptabilite — Vous I II a son 
mot de passe et e'esi lui qufc 
attribue ou non un code & tel 0-u 
tel uliUsateur. Toutefob, dons 
to us les cos, il peuf se reserver 
un acc&s exciusif aux cldtu 
res... ou encore n'autoriser que 
certaines opdrations 6 un utill- 
soteur donne. 

NO TONS AU PASSAGE : 

one reparation aulomalique 

des fichlers en cas de cou- 
pure de courant. 

la sauvegarde du grand llvre 
et I'ddrtion auiomotique du 
journal d r ouverfure lors de la 
cloture onnuelle. 

Timpossibilite de supprlmer 

u n compte ou un journal si Is 
conttennent des ecritures- 

CJL 
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GUY-HACHETTE 



PRATIQUE 



DOS 3,3 



ProDOS 



Le cout reel 
de votre 
automobile 

par Clement REM ARD 

TOUT, vous compterez tout pour sovoif 6 combien vous revient, au kilometre bien sur r votre taxi 
personnel. Et pas question, id, de diviser por 10000 I 'erosion de votre capital-auto... sous pretexte 
que vous avez prevu de parcourir 10000 km dans I'annee a venir, Ce qui est depense est en general 
irrecuperable. Essayez plutflt — en cas d'accident grave, par exemple — de vous faire rembourser une 
pari Inutile de vignette ou d'ossurance I Quant aux reparations importantes et oux pneus neufs. nous 
savons tous qu'ils n'entrent que pour une faible part dans le prix de vente d'un vehrcule d'occasion. 
Conclusion : Un prix de revient kilomdtrique r£el ne doit pas tenir compte des plus-values 
eventuelles. Et void ce que ce\o donne : 





POUR MEAAOIRE 



POKE 32,2 fixe lo fenStre 
d'ecran a 2 (ce qui corres- 
pond a HTAB 3), 

POKE 33,74 limite I'ecran ii 
74 lignet. de lorgeur, a 
parfir de la ligne fixee par 
POKE 32,n 

POKE 34,2 ivlie leffaee- 
m&nt des iignes et 1 de 
I'ecran, 

POKE 35,23 protege la 

ligne 23, 

POKE 36.3 i Position hori- 
loniole du curseur 

POKE 37,1 ; Position verti- 
cals du curseur. 

POKE 2939,32 affiche, en 
bos et a droite de I'ecran, 
un carre en mode inverse. 

TREMPLIN MICRO 



100 

105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
2C5 

210 
215 
220 
225 



VTAB 



NORMAL :D$ = CHR* C4>: PRINT D*'PR£3" s PRINT 

1 

GOSUB 920 
0NERR GOTO 120 
GOSUB 840: GOTO 150 
POKE 216.0JLF = 

REN n »»««#« »« »*«*** **»****#*««*«** 
REM # TRACE DU CADRE « 

REM #*»#*ft#»ftft##*ftft# *#»*»*»■*#♦-#*# 



PRINT : HOME 

INVERSE : FOR I - 1 TO 9-: PRINT ? " ! J NEXT 

FOR I ■ 2 TO 23: POKE 1403,79: PRINT ■ NEXT 
FOR I ■ 1 TO 13s PRINT * 'a; NEXT 

NORMAL i POKE 37J: POKE 36.3: POKE 2039,32 

REN PROTECTION DE CE CADRE 

POKE 34,2; POKE 35,23: POKE 32.2: POKE 33.74 

REM TITRE DE LA PAGE 

R* m ■ COUT REEL DE WON AUTOMOBILE " 

INVERSE : PRINT t PRINT LEFT* <V*. LEN <R*>> : PRINT 

RS: PRINT LEFT* (V*. LEN <R*>): NORMAL 

PRINT : PRINT " FICHE DE SITUATION" 

PRINT ■ M 

GOTO 265 
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Le cout de votre automobile 



(sutte) 



SAISIE 



= DS* + " 
OR R* = CHR* 



H • 1: GOSUB 



230 REM #*#**#*#**-**#*##*##*#*#**##*#* 
235 REM # FICHE SJGNALETIQUE * 
240 REM 
245 : 

250 L = LEN (DS*>: IF L ■ 1 THEN DS* = ' " t RETURN 
2b5 DSS ■ LEFT* < DS* , L - 1 ) : RETURN 
260 J 

265 SA - 0:S* « S*<3A>:DA* = "DATE D' ACHAT t "tV m 10:H 
= 16 

270 IF S» = " THEN S* = '00.00.1985* 
275 PRINT : VTAB Vi PRINT DA* + S4: 
280 DS* = " 

285 IF H - 18 OR H = 21 THEN H = H - t : GOSUB 250 
290 IF H = 18 OR B » 21 THEN H = H + ! :DS* 
295 POKE 1403, Hi GET R»: IF (R» " CHR* (83 

(11)) AND <SA) THEN H - 16: GOTO 385 
300 IF R» = CHR* (13) THEN 320 
305 IF R* = CHR* (127) AND H > 16 THEN H » 

250: GOTO 285 

310 IF R* < CHR* (48) OR R* > CHR* (57) THEN POKE - 1636 

8,0; GOTO 290 
315 DS* = DS* + R*£ PRINT R*i :H = H + 1; GOTO 290 
320 H - 16: IF DS* = ■■ THEN 335 
325 IF LEN (DS*) = 10 THEN S* = DS*: GOTO 335 
330 S* = DS* ♦ RIGHT* (S*.I0 - LEN (DS*)) 
335 PRINT : VTAB V: POKE 1403«Ht PRINT S* 
340 J = VAL ( LEFT* (S*,2>):M = VAL C KID* <S* r 4,2)):AN 

= VAL ( RIGHT* CS*,4)) 
345 IF (J < 1 OR J > 31) OR CM < 1 OR M > 12> OR (AN < 1 

950 OR AN > 1999) OR MID* (S*.3.1) < > "." OR MID* C 

S*.6.1) < > ■.' THEN S* - "rH = 16: GOTO 270 
350 IF SA = 5 AND AN < VAL ( RIGHT* (S*(0) t 4)) THEN 270 
355 S*(SA) ■ S*: IF SA = 5 THEN RETURN 
360 AM = ANjMM = M:JH = J 
365 • 

370 SA ■ 1:5* = "KILOMETRAGE : •* GOTO 460 
375 SA ' 2:S* = "PRIX D' ACHAT * *i GOTO 460 
380 SA = 3:S* = "COTE ACTUELLE : * : GOTO 460 
385 SA = 4:S* = "KILOMETRAGE t " : GOTO 460 



390 IF VAL (S*(SA>> < VAL tS*U>> THEN 385 
395 PRINT :SA - 5rV - 20: DA* - 'DATE ACTUELLE 

*(SA> 
400 GOSUB 270 
405 : 

410 MR * 12 - MM + M - I 
MR + (12 h (AN - AH 
415 JR = (30 - JK) + J 
420 IF JR > 29 THEN MR = MR + 
425 IF AN = AM THEN MR = MR - 
430 IF MR < OR JR < THEN 395 



:S* - S 



IF (AN - AM - 1) > THEN MR = 
l>) 



1 :JR = JR - 30 : GOTO 420 
12 



Lors de io premier© utiliso* 
Hon, ll foul indiquer la 
date d achat du vehkule, 
son ktlomeirage (pas de 
S.V.P,), san prix d achat, 
so cote actual le el son 
kilomelroge actuel. 

Pendant lo sofsie. utilisez 
la louche DELETE pour 
ef facer [on revenlr en 
arrlere lorsqu'il s'agit de 
la date}. 

On peut revenir a l item 
precedent en pressant 
I'une des touches + 4> - 

Quand la valeur est 
bonne, inutile de la reta- 
per . un simple RETURN 
est suffisant. 

Remarques ; lo dale 
d'ochol doit etre ante- 
rieure (ou idenlique) 6 la 
date actuelle. La valeur 
actuelle dot) el re info- 
rieure (ou egale) ou prix 
d' achat. 

Le programme determine 
le temps qui s'est ecoute 
entre la date de I'ochol et 
ta dale du jour, mois cela 
ne seri slriclement a rien 
dans te calcul du coflt au 
kilometre 
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QUY-HACHETTE 



POKE 1 403 , n rem place 
POKE 36.n... et HTAB. 
Telle qu'elle est ecrite, 
cette version du pro- 
gramme fonctionne sur 
Apple He, Appl# Ik et 
Apple He qvoc 65C02 

Sur Apple ff+ P ll faudra 

niet*&a»r©ment revoir 

I'aflkhage sur 80 coign- 

n&s, en fonction de fa 
carte ufilisee. 




DEPENSES 



Vous comptabilisere?! les 
reparations resultant 
d'aceldents dons le paste 
4, Vous paurrez par exem- 
pie avoir une facture de 
"Tolerfe-peinture" de 
4500 F ... puis un renv 
boursement de 4000 F de 
voire assurance, a enre* 
gisfrer en mains ( — 4000). 

Remarque : les centimes 
sent accepies, 



435 VTAB 22: PRINT ■ ';: INVERSE s PRINT MR" MOIS S. "J 
R" JOURS" 

440 FOR 1 - 3 TO 22: POKE 1403,28: VTAB Ir PRINT " ■ t NE 
XT t NORMAL 

445 POKE 33.0; POKE 32,35: POKE 33,44: VTAB 3: HTAB 36: 
PRINT 

450 POKE 34.2: POKE 35.22: H0HE t GOTO 540 
455 t 

460 PRINT :V = 10 + CSA * 2>i VTAB V: PRINT S*t:S» = S*< 
SA> 

465 POKE - 16366,0: PRINT : VTAB V: POKE 1403.H: PRINT S 

*: : GET Rs 
470 P = PEEK C - 16384) 
475 IF PEEK (37) < > V - 1 THEN 465 

480 IF P > 47 AND P < 58 AND LEN (S») < 6 THEN S* = S» + 
P* 

485 IF P - 127 THEN S* = STP* ( INT ( VAL CS») / 10)): P 

R1NT CHR* (B)i" * 
490 IF 5$ ■ *Q" THEN S* = ■ ■ 
495 S*(SA) = S* 

500 IF P = 11 OR P - 8 THEN ON SA GOTO 265,370,375,380 
505 IF P » 13 AND 5* < > " THEN ON SA GOTO 375,380.385, 

395 
510 GOTO 465 
515 J 

520 REM *##o««*tf«#ft*#M#*##»ifii#«ii»4i*«« 

525 REM * GRANDS P0STES DE DEPENSES « 

530 REM «tf»l*#N«Mtf#**M*»»*WN#*tfN##»ftft* 

535 : 

540 ONERR GOTO 700 



:I ■ 1: G0SUB 570 
:i - 2: G0SUB 570 
;I a 3; GOSUB 570 
:I = 4: GOSUB 570 
": GO 



545 PRINT -1. STATION- SERVICE 
550 PRINT -2, REVISIONS-REPARATIONS " 
555 PRINT "3. VIGNETTE & ASSURANCE 1 
560 PRINT "4, AUTRES DEPENSES 

565 PRINT " 

TO 575 

570 PRINT LEFT* <V*,12 - LEN < STR* ( INT <TU ) )>) ) jTCI ) 
: RETURN 

575 PRINT : INVERSE i PRINT "CODE*:* NORMAL t PRINT ' <F 

IN/ERREUR SAISIE=CONTROLE-C) ";: GET R4 
580 IF R* b CHR* C3) THEN 735 

505 R = ASC <R*> - 48: IF R < 1 OR R > 4 THEN PRINT i CA 

LL - 998: CALL - 998: GOTO 575 
590 POKE 34,10 
595 PRINT : HOME 

600 POKE 1403.0: PRINT "DATE: * 

605 POKE 1403.9: INPUT ""sDl* 

610 IF Dlt » THEN Dl» = S»: GOTO 625 

615 L ■ LEN <D1»): IF L = 10 THEN 625 

620 Dl* ■ Dl* + RIGHT* <S». 10 - L) 

625 PRINT RL»; t POKE 1403,9: PRINT D1*;S$ s Dl* 

630 POKE 1403,0: PRINT "OB JET , 



TREMPLIN MICRO 



Le cout de votre automobile 



(suite) 



POKE 1403, 9t INPUT "";OB$ 
IF OB* = ■* THEN PRINT RL*:t GOTO 630 
POKE 1403, Or INPUT *HQNTANTt " :MO* 
IF MO» = ,u OP VAL (HO*) ■ THEN PRINT RL*:; GOTO 6 
45 

POKE 1403,0: PRINT : PRINT ^OORRECT <R>EFAIRE <S 
>DITE ":: GET R9: POKE - 16368.0 
IF R* = CHR* <3> THEN 680 
IF R* = "C THEN 680 
IF R» = "R* THEN 595 

IF R* < > 'S' THEN PRINT CHR* (3Ui: GOTO 655 
T(R> - TCP) + VAL <MO*>5E - E + 1:E*CE> ■ STP* tR) + 

" u + Dl* * ' ' + OB* + LEFT* (V»,26 - LEN <0B»n 
P = OjL = LEN (MO*) : FOR I = L TO 1 STEP • It" "11 MID 
* <MO$, I ,1) ■ THEN P - L + 1 - I 
NEXT i IF P < 3 THEN MO* = HO* + LEFT* <V*.3 - P> 
E*C£) = E*tE> + LEFT* < V*. 10 - LEN <MD*)> + MO* 
POKE 34.7: POKE 1403,0: VTAB 8: CALL - 198: IF R* - 
CHR* <3) THEN 735 
GOTO 575 

REM ##*0#*###««##**#«#*#*#4*ft««#*ft 
REN # COUT AU KILOMETRE * 

REM #*#*#***##w#*##*h«imi» 
> 

NK = VAL (S*<4)> - VAL <S*(1>>: REM KILOMETRES PARCO 
URUS 

AM = VAL <S*C2>) - VAL <S*<3>>r REM PERTE SUR CAPITA 
L 

DT « 0: FOR I = 1 TO 4:DT = DT * TCI): NEXT 
DT = DT + AM 

DK = DT / NK: DK - VAL < STR* <C INT CDK * 100) / 100 
))) 

PRINT J POKE 34,17: HOME r PRINT I INVERSE ! PRINT ■ 
LE KILOMETRE ACTUEL COUTE:":; NORMAL i PRINT • "rDK 
IF R* = CHR* f3) THEN 795 

■ 

REM M#*IMKIM#H»##*#*tf*Hl 

REM * ECRITURE DO FICHIER 1 * 
REM *»###« 

PRINT i PRINT D*"OPEN AUTO*: PRINT D»" WRITE AUTO* : F 
OR I = TO 5: PRINT S*C I > r NEXT : FOR 1 = 1 TO 4: P 
RINT TCD: NEXT i PRINT LF + E: PRINT D*'CLOSE AUTO" 
800 IF E = THEN 810 

805 PRINT D*"OPEN AUT0.D.L52*: PRINT D*" WRITE AUTO.D.RO* 
! PRINT LF + E: FOR I = 1 TO Bl PRINT D*"WRIT£ AUTO. 
D,R"LF + li PRINT E*CI): NEXT i PRINT DS" CLOSE AUTO. 
D" 

810 CALL - 198: POKE - 16368,0: WAIT - 16384.128,127: PQ 
KE - 16368.0 r TEXT : HOME : END 



635 
640 
645 
650 

655 

660 
665 
670 
675 
680 

685 

690 
695 
700 

70S 
710 
715 
720 
725 
730 
735 

740 

745 
750 
755 

760 

765 
770 
775 
780 
785 
790 
795 



CONTROLE-C 

Pendant la saisie des 
depen&es, un CTRL-C voos 
permettra revenlr b la 
lignede CHOIX. 

Pour 1efmin*r la soisie, II 
suffif aussi d& taper CTRL-C 



COUT-KM 

On est ou pas d'accord 
avec ce toltuL. qui peuf 
evidernment etre modifre 
suivant les crttere-s de cha* 
que utittsateur. 



FICHIER AUTO 

On y frouve la liche du 
vehicule, le total des 
d^penses pour chaque 
po^te-.. et le n ombre 
d "en reg is tre merits du 
fichisr direct AUTCLD 
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FICHIER AUTO.D 

Rien ne vous inlerdit de 
I exploiter autremfcrtf par 
la suite, notam merit pour 
realiSer une analyse plus 
point ue des depenses. 




AFFICHAGE 
DES DEPENSES 



Possible des la deuxieme 
utilisation. Certains aime- 
ront peut-etre y ojouter 
une routine d'impression : 
rien deplus facile ! 
PR£1 ; FOR I = 1 TO LF : 
PRINT E${l) : NEXT : PRK3 



820 REM * 

825 REM * LECTURE DU FICHIER I » 
830 REM om«*#»#**#*m«#*####*#*#**#* 
835 : 

840 PRINT : PRINT D*"0PEN AUTO" ! PRINT D*"READ AUTO': F 
OR I = TO 5: INPUT S*<I>: NEXT : FOR 1 ■ 1 TO 4: I 

NPUT T(Dj NEXT * INPUT LF: PRINT D$"CL0SE AUTO* 
B45 VTAB 12: PRINT 'DESIREZ-VOUS LIRE LA LISTE ACTUELLE 
DES DEPENSES ?" : PRINT 
on <N>on ? 
OP P* - 



850 PRINT "<0>U] 

T : IF R$ * "0" 

655 



CALL - I9B: 
<o u THEN 890 



GET R»: PRIN 



IF R* c > "N" AND R$ < > 'n" THEN PRINT RL*RL* I GOTO 
850 
960 RETURN 
865 ! 

870 REM *#*#**#*#*#*-***#*###**# 
8?5 REM * LECTURE AFFICHAGE FICHIER2 # 
880 REM ##*-»*##***(#* 
885 : 

890 HOME i£ = 

895 PRINT D» u 0PEN AUTO.D.L52": PRINT B*' READ AUT0,D,RQ ,, r 
INPUT LF: FOR I » 1 TO LF: PRINT D$"READ AUTO. D,** I 



PRINT D* h CL0SE AUTO.D* 
4 it PRINT E»C I > 
GET R*: POKE - 16368.0: HOME 



: INPUT E*<I): NEXT i 
900 FOR 1=1 TO LF;L = L 
905 IF L = 22 THEN L = 0: 
910 NEXT I 
915 GET R*: RETURN 
920 FOR I = 1 TO lOiVt = V* 

925 RL» = CHR* (31): REM Remoflte d'un* ligne 
930 RETURN 



NEXT : REM Ligne v 



A VOUS DE jOUER ! 

Las programmes de TREMPLIN MICRO sont testes sur 
trois types d APPLE : lie. He el He 65C02 (avec impri- 
mantes DMP, IMAGEWRITER et IMAGEWRiTER «). 
Les list ages publics sont ceux des programmes essay&s, 
lis ne devraient done pas cornporter d'erreurs... mais it 
faut compter avec la photocomposition (pas toujours), to 
mis© en page, ©I les m4chantos punaises (bugs), 

Bref , il arrive que l&s erreurs saient sans influence sur le 
fanctionnement du programme. Ce n'est pas une roison 
pour ne pas \e$ signaler. 

Par confre. lorsqu'elles perturbent le programmGi II con- 
vie nt d'agir sans tarder. En tout cas, 6 portir de ce 
numfiro, nous enverrons 5 bisques vierges du premier 
Lecteur fau a la premiere Lectr ice) qui aura d&couvert et 
corrig^ une veritable ©rreur . Qu'on %e le dise I 



TREMPLIN MICRO 
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GRAPH ISMt 



JilkVilM IMAGE WRITER 

Utilisation de GRAF.0 



DE nombreux Jecteurs nous #crlv©nt ou nous telephonent pour des problfemes d'irnpres- 
sion. Cest vroi pour la SCRIBE (dont on peut demander, chez les revendeurs Apple, la 
documentation en frangals — dchange gratuit), mais c'est aussi — et souvent — I© cas pour 
I'lAAAGEWRITER. 

On soil que le kit vendu avec I'impr Imanle camprend une disquette TOOL KIT permetfanf 
to-utes les impressions graphiques. Nous avons d£ja explique, a plusieurs reprises, com 
men! extroiro la routine d'impression. et lutiliser 6 partir d r un programme en Bosk, 
AAois le temps passe, le materiel evolue... et les programmes aussL Certains lecteurs 
confondenl une routine GF... et une outre intitule© GRAF.0 . II est evident que les 
r£suiial& sont desaslreux. 

Le programme ci-dessous vous permettra, sous ProQOS, d'uiiliser facilement GRAF,Q (qui 
aura au prealable 6te copie sur votre prop-re disquette). 

| GRIAAP.O 1 

60880 REM UTILISE GRAF, 8 DE LA DISQUETTE TOOL KIT PRQDOS APPLE 

600 18 TEXT ! HOME 3 HIMEM; 36844 

68820 D* = CHR* (4) 

60938 ]M - 1 : REM SLOT DE VOTRE IMPRIMANTE 

69640 PRINT WBLOAD GRAF. 6" 

68958 POKE 6, Mx POKE 252,16 * IN 

60848 HOME ! PRINT "NQM DE VOIRE IMAGE <? POUR CATALOGUE) ; — 



66970 PRINT s CALL - \9Sx INPUT "-> ";TI*J IF Tl* - ■?■ THEN PRINT DfC 

AT" s SET R*: PRINT : GOTO 40860 
68675 IF NOT LEN <TI*-) THEN 60148 

60988 CALL - l?Bi PRINT i PRINT "HGR I OU 2 ? -> " J s GET P*: IF P* < > 

"1" AND P* < > '2' THEN 68868 
68999 PRINT I PRINT DVBLQAD'TIf ,A*"2888 * 2088 * <VAL(P*>«2> 
68108 PRINT 3 PRINT "NODE (S«Simplt blanc sur tiolr i=Nolr surblanc 2=Doub 

le blanc sur nolr 3=*Co«me 1>" 
68110 PRINT : CALL - 19Bs PRINT 'CHQ1X MODE -> " ; J GET R*s PRINT t IF R% 

< "0" OR Rt > "3" THEN 68880 
68I2B POKE 7, VAl <R*> ♦ 4 * (UAL(P«>=2> 

68130 CALL 38636: CALL 38156 

68131 END a REM A ELIMINER POUR UT1LISER LA SUITE. . . 

68135 REM UNE LIGNE CDMME CELLE-CI PEUT VOUS RENVQYER AU PROGRAMME BASIC 
EN COURS.SANS PERDRE LES VARIABLES (LA MEME OPERATION DOIT ETRE PREVU 
E POUR QUITTER LE 01 T PROGRAMME. . .EN DIRECTION DE QRJMP.8 

68148 PRINT D*" CHAIN GRAPHE ,41635" i REM RETOUR AU PROGRAMME G RAPHE 



Attention I pour appeler GRfMP.Q, votre programme Basic devra comporter une ligne oinsi redigee : 
1 635 PRINT CHRS(4) "CHAIN GR IMP. 0,660000" 

Nalurellement, 1635 a ete choisi orbitrairement. Le vrol ngmero sera celuf de la ligne de votre propre programme. 
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Vous avez ecrit 
a TREMPUN MICRO 



# Malgri man inexperience, je viens de m'otfrir 
ProCODE r car f'essale, desesp&r&ment, dappren^ 
dre. J r al soifde savoir... 

fai achet*: AU^DEtA DU BASIC AVEC I' ASSEM- 
BLED (Ed. Radio)., LES RESSOURCES DEL' APPLE tic 
Je devore tout ce que je trouve et qui portrait 
m'apprendre A programmer en assembleur, mais je 
tie trouve que des auteurs qui n'apprennent la prath 
que de I'assembleur qu'd ceux qui la connaissent 
deja (ou sois-je trop bete pour comprendre ?}* 
Pouvez-vous m'indiquer yn tivre dont t'outeur me 
prendrait par la main en pariant du principe que je 
suis idiot et se mettrait dans la f4te de remplir la 
mienne ? 

Poor HnsSant, je recople des programmes et 
lorsqu'ils ne fonctionnent pas, je suis incapable de 
les rectifier comme je le fais en basic hrsque tela 
arrive, Par exemple j'ai recopie t sous ProCODE : 
WHAT TIME IS IT, MISS MOUSE ? 
Resultat ; ProCODE me r4pond : UGNE 32 — Ope- 
rande nan en page 8 et meme reponse d lo ligne 33. 

C.~J* l,,Q£1&0 JUAN US WNSJ 

Lo Programmotlon du 6502 (Ed. Dunod) 
devras* vous aider 6 rnleux comprendre, 
mais astreigneivogs a en taper un d un laus 
les examples. Un autre con<»eti ; reveries de 
temps en temps sur des routines que vous 
n'avle? pas comprise brs d'un premier exa- 
men : fort de vos connaissances nouvelles, 
vous les verrez d'un autre ceil ! 
Ceci dit, II y o deu* omissions dan* le I i stage 
source de WHAT TIME IS IT MISS MOUSE ? 
0304 : A9 74 32 IDA E < INTERUP 
0306 ; A2 03 33 IDA £ > INTERUP 
II faut en excuser notre service 1 de pbofoconv 
position (qui ne connoTl pas les signes plus 
petit e1 plus grand que*,, ajout^s 
monuellement}. 

• Exis1e*Mh sor I 1 Apple lie, une instruction permet- 
tant lo renum4rotation automatique d'un pro- 
gramme ? Peut-etre pourrieZ'VOUS publier une telle 
routine ? q,m,(&7I40H%vahs} 

TREMPUN MICRO 
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Avec le DOS 3.3, vous avez RENUMBER (&ur la 
disquette MASTER), mais rien fgratuitement) 
ovec ProDOS. Deux solutions (ll y en a 
d'autres.-. mains evident**) : 
— Convertirvos programmes en DOS 3.3, uti- 
liser RENUMBER,., puis reconvertir. 
_ v ous offrir BASiC PROGRAMMING WITH 
ProDOS qui comports, entre autre* ulllitai- 
res, le programme APA, version ProDOS. 

* Pourquoi I 'Apple He passe 't*il en mode TRACE 
quand je mt» mets en 80 colonnes en utllisonf : 
PRiNTCHR$(4);"PR£3" ? 

Un conseit ; a[outez un PRINT epr*s cette 
commande... 
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» Je tire man chapeou a votre revue qui est I'une 
des rares i etre specialises dans Apple* 
Avon! toul, je voudrois corriger votre programme 
TIMER dans L M, n»5 page 3, Vous avez dst que la 
carte souris gen&re une interruption tous les 6<feme 
de seconds. Or e'est faux. La frequence exaeie est 
51 erne de seconde, ll hut done corriger le pro- 
gramme 6 I'adresse $386 (902) pour y met f re £$32 
($9) au lieu de £$3B (59), Ainsi le dticaloge que j'oi 
constate opres seulement 20 secondes entre man 
chronom&tre et le TIMER n'existe plus. 
Je voudrais mointenant m'adresser d tous les lee- 
teurs de T,M. Je possikte un Apple Ik avec Sourte et 
une imprimante a jet d'encre, J'oi constat^ que les 
codes qui arrivaient d man impfimonte 4taient tou- 
jours svperieurt d 12? (bit de poids fort a 1)- Com- 
ment emp&chercela ? 

J'aimerois que vous publiiez man adresse complete 
afin qu'un l&cteur puisse me repondre ou m'ticrire 
pour 4cbonger des id4es- 

Arww PACT {JC mm irik S*ti* - Appt. — TQUlGOSt) 



Attention ! la frequence horlog* du 6532 «l 
' en fonction des cycles d'une instruction (ce 



n'est pas si simple.-- 
d'un cycle est egal & : 



T X V/F 



). Le temps d execution 



{Suite w verso) 
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Vous avez ecrrt 

k TREMPLIN MICRO 




TW 



Till ' ~ Nombre de cycles- HorJoge (pourquoi pes 

V = Frequence Microprocesseur 1 MHz base 
F = Frequence horloge devoir© micro. 
Alnai J'Apple Ik toyrne plus vt«e que le He f 

# Disposant d'une imprimante SEIKOSHA GP-500 A, 
reliee par une interface CENTRONICS V.24 d un 
Appie Ik, {e viens vous demander de m -order. 
Comment imprimer mes graphiques ? 

O* J, fffAfltW PQtmMS} 

Pour porler d'une Imprimante, il faut disposer 
de son monuel d 'utilisation {on fran^ais de 
preference). 

VisJblemsnl, les importaicrurs de cette impri- 
mante n'ont pas estim6 utile d'offrir 6 leurs 
clients un utiTitaire de recopie grqphique.,. el 
e'est navrant, Mais au&sr, pourquoi cHercher 
tan1 d© complications, sur un Apple He... 
alors quit exisie une tmagcWrifer ? Le prix ? 
Hum I ou esl r^conomie quand on n'obfienl 
pas de !=o machine ce que Ton es* en droit d'en 
attendre ? 

Nous sommes ioul b faif disposes, fct P 6 dvo- 
quer. GRATUITEMENT, toutes les inMoHves 
des diffuseurs d'imprimanies compatibles, 
pourvu qu'ellfrft servenl les int*r§ts de nos 
lecteurs, 

CHu r -HACWETTt. 

Vous pouvez aussl f£l6pboner a SEfKOSHA : 
(16-1 J 45.34,75,35, 

• Est-il rdeliement indispensable, sous ProDQS, de 
toper determinable* CAT/DISK0/SOUSDISK (par 
example} pour obtenir le catalogue (et rfen que 
celo) SOUSDISK de la disquette DISKB ? 

Dans voire ©xempte, si le PREFIX est DISKQ, vous 
pouvez obtenir le sous-catalogu* SOUSDISK en 
I tapanl un simple CA TSOUSDtSK, 

i 

* Pauvez-vous m'indiquer comment initialiser une 
disquette pour que celfo<i ddmarre sur un pro- 
gramme en iangage machine ? 

J.M. {XtWQAUCH} 

Sous DOS 3,3, tapez d'abord POKE 48514,52 
(Ja volflrur normofe est 6) purs INfT NOM (DU 
PROGRAMME), Ensuite, DELETE NOM (DU 
PROGRAMME) puis BSAVENOM, A.,. r L„ 
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Essayet par exemple de placer les codes a 
I'adresse $300 : 

300 ; 20 60 FB A9 02 85 22 20 6E A5 AC DO 03 
pula BSAVENOM, A76S, L}3 
Quand vous fancerer \e syst&me, celui-ci affi- 
chera ' APPIE II", le CATALOG... puis vous 
renverra ii I' Applesoft. 



• Comment peui-on cacher un listing d'un pro- 
gramme en Basic ? Pourriez-vous publier un pro- 
gramme capable de colorler une zone de f'ecron 
(palygone) ? 

S. O. (7§3W ILANCOU8T) 
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jjjjl Un POKE 214,255 annute certaines common- 
des du DOS 3,3 (tl5T t NEW, CALL, POKE} et 
prova-que un RUN quand on essaie de les ulili- 
ser. Nous publions, page 19, un orticte qui 
devrait deja vous ^claifer sur lo fo^on de colo- 
rer une figure, en page HGR, 

* 1° Paurriez-vQus donner la solution d'exiension ou 
programme EX.AMEM.LM (LM.I)? Par exemple 
pour I'afficboge des chiffre* ? 
2* to programmoHon esf-elle obligotoire pour du 
Hardcopy sur Apple lie ? 

1, Changer 365 : 20 7D £FE par 385 s 20 Cf 03 
Ajouter ensutte ; 

3CF:C9 30 90 05 E9 58 38 E9 AS 60 
Sauver la nouvelle version : BSAVE EXA- 
MEM,LM, A768, 1217 

Oui, il est indispensable de passer par un 
programme, aussi bien on mode TEXT 
qu'en mode HGR... d rnoins do disposer 
dune interface (ou d'une imprimante!' 
autorisont lo copie direcfe... 



■ feprouve toujours une certaine satisfaction d 
recevoir les nouveaux numeros de TREMPLIN 
MICRO,, qui traitenl en profondeur les "secrets" de 
la "micro APPLE", Cependant comme le dit si bi&n 
un correspondanf (T.A4. n°5 page 57 siqne Jeon-iuc 
M. 54600 VILLERS LES NANCY), APPLE FRANCE se 
(out de nous., et e'esf peu dire. Pourquoi ? Tout sim- 
plernenf t car la documentation "officielle" e'est du 
commerce, pour ne pos dire "lo carotie "\ el quant 
aux stages renvoyes de mois en mois (el celo fait 2 
am) dans la province, il N Y EN A PAS r ef il N Y EN 
AURA JAMAIS (les mats sont peses}, D'aif leurs, {e 
ne me suis jamais gene pour le leur dire avec le 
CLUB APPLE (500 F par an de cassation — rembour- 
see 75 F je crois pour evlter les JUGEMENTS 
SEVEREST 

J W suivi des cours sur TO 7 — ARMS TRAD, , ■ aussi fe 
me trouve toujours un peu d£sempar4 lorsqu'il 
s'agit de programmer APPLESOFT : man niveau 
n est pas elev4, mais j'arrive toutefois & program- 
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mer avec mo ft/fo de 14 ons ov/ fulmine devont les 
"acrobotl**" qu V tout fotre avec APPLE tic. Ne 
seroiNl pas possible d'aborder I APPLESOFT, dons 
voire revue T.M., $eu!ement qo*lqu#% pages du 
type LED MICRO, pour satisfalre les "mains" initios, 
et ne pas les decoufoger ? cor voire revue,, si efle 
est bien faite, est d'un niveau que beaucaup de jeu- 
nos trouvent tf/o^. Un ouvroge comme "Pratique de 
I APPLESOFT par ULEN" a ete lu. relu et "execute". 
Je pease que vous auriez bortrw audience aupres de 
certain* lecteurs. 

Et puis, pourquol ne pos realiser des programmes 
d'un niveau moyen du type rencontre" dans dautres 
revues, mats adaptes d /'APPLESOFT — et pour fo$ 
eitw : 

• "Retrouver et r4apprertdre le LATIN" 

• "La multiplication 4gyptienne",„ 

J<wPi*rr9 M, (26240 SAWT- VAil tEft SDK WH&H$f 

Vous eles un peu sivire ovec Apple don I le* 
documentations — sans etre des modeies du 
genre — n'ont rien d envier a celles des autres 
constructeurs. 

II y a bien place pour I'mitlation dons les 
colonnes de mais Id composition de 

cheque numero resulle d'un chcix fande sur 
los demands de rvos Lectrkes ©T Lecteurs, 
D'autre part, il n'est pas possible, dans chocun 
des nurn&ros d'un* revue bimestrieUe, de 
revenir sur des notions de base qu'une multr- 
tude d'ouv rages (tres complets) ont deja trai- 
tees, Notre role, je crois, consiste a apporter 
un plus... mais ai-je raisan ? Au lectorat de 
Trempiin Micro de r^pondre f 

• Notre dub a 4t4 cr&e en Septembre 1984 et 
compte acti/ellement 145 adherents. 

Nous nous permeitons de vous saiticsfer pour 
I'obtention de sp&cimens de voire revue ainsi que 
de remise sur le prix de lobannement 6 votre pubth 
cation pour nos adherents. 

Nous sou hai tenons nous faite connottre dans to 
rtigion et vous demandons de bien vouloir Informer 
vos lecteurs de /'existence duxlub informotique FOR 
1 NEXT. Le club a reftr en dan un ordinateur SKS 
2500 ; pour I'lmtmt, nous n'avons pas pu t'uiiliser, 
noire genereux donateur ne nous oyant pas fourni 
la documentation ni awcwn syst&me d'exploitation, 
Ulmpartateur francs, to sod&rf SODIEPtE d Cha- 
ronton, n'existe plus ef // nous esf impossible de 
connoftre le nouvei importateur ni de pouvoir join- 
dre te fobricant Atlemond ; I'adresse que nous pas- 
s4dons doit 4tre incomplete, notre courrier est 
revenu. Nous nous permeitons d'obuser de votre 
gentillesse et vous soltldtons pour tobtention des 
nam et adresse du nouvtl Importateur ou de 
I'odresse du fobricant en Allemagne : a mains que 



vous cannaissiez une personn* possedant ce type 

d ordinataur o>f qui seroit pre te a nous aider, 

Club tnformatiqu* FOX t NEXT 
dtfl At PMIipp* BABRAUIT 

K, « quart Dfouriarifl* COOTS BQNQQUFIE (ftWO £V*Y) 
TAi. du Oab :. M. 97 67.09 
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Voi \h qui esl loit... e« i I e*1 certain que les Lec- 
teurs de T.M. prendron I contact ovec vous. 
Specimeni * T,M<- nest jamais distribue gro- 
tuHemenf et oucune remise n'esl consentie 
sur le prlx de Tobonnement, C'est la ran^on de 
la liberte ! 

SKS 3500 : Votre genereux donateur doll Sire 
content d'avoir reussi a se d^borrasser de la 
b#te. Lai devroil poo voir vous renseigner... b 
molns que Tun de nos lecteurs... Qui sait ? 



MULTIPLIER PAR 16? 

* Dons un programme en assembieur r je sui$ 
omeni d multiplier des valeurs par 8 au par 16. 
Comment y parvenir ? 

tauh BiiWOt (AVtGHOH! 
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Vous pouvez ut Miser la petite routine ci- 
apr&s. Le multiplicands est sfocke sur 
deux octets, aux adresses $06 e1 $07. 
Avec ce sous-programme, le resultal ne 
doi1 pas d6pa$5er $Ff FF et fe plus grand 
multipticande sera done ego\ b 4095 (4395 
X 16 = 65520 ' $FFfO). NalureKement. 
il esi stocks suivanl le principe babHuel 
partie basse en 06 et parti e haute en 07 
Avec 4095 ($FFF). on aura done : 

*6 : FF OF 

-300 G (Execution) 

i— F0 FF {soif $FFF0) 



Voici mainfenant lo routine : 



0300- 


h2 


04 


IDX 


f»04 


0302- 


06 


06 


ASL 


S06 


0304- 


26 


07 


ROL 


*07 




Ch 




DEX 




0307- 


DO 


F9 


BNE 


50302 


0309- 


60 




RTS 





Question 



Ripo 



Quelle dolt &trti la valeur de x pour 
multiplier par 8 ? 
x x 3 pour multiplier par 
multiplier par 4 et 1 pour 



8, 2 pour 
multiplier 

par 2>., mais on fero alors plus court en utiik&rtf 



MUlllPUfRPAR2 . 

1QQ : 06 06 ASL Stf6 



%Q2. 07 
aoi : 60 



RTS 



MULTIPLIER 

300- 06 06 
36 07 
Q6 06 
26 07 
60 



303 : 

304 ; 
306 

id b 



PAH 4 t 

ASL $56 
«OL $07 
ASL $06 
ROL SO? 
RTS 
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PRNTAX et PRNTYX 



J 



• Je ne comprends pas comment on offiche porfois 
des nombres hexadtklmaux par quelques POKES, 
tutvit J'un CAIL Zxempte • POKE 69 f 160 ; POKE 
70,90 : CALL — 1727.,. et on obtient $A05A 

Comme vous y ollez ! dans votre e*empte, 
160 ($A0) es1 ires bien mis dan* I'Accu-m-ula*- 
teur {$45 = 69} et 90 ($5 A} dans le registre X 
($46 — 70)., mois un din d'ceil a la routine 
PRNTAX (SF94I) ne produira pas leffet 
escompfd. 1 1 taut passer par une courte rou- 
tine en langage machine, com me ci-apres, et 
poquer ou pr&oloble vos vaJeurs dans deux 
memoires-felais : 

POKE 6, 160 ; POKE 7,98 ; CALL 768 {$300) 
Et void le sous-programme i 

300: A 5 06 LDA $06 

302 : A6 07 IPX $07 

304: 4C 41 F9 JMP $F941 

Notez que $F940 (PRNTYX) affiehe les regis- 
tres Y-X, comme son nom f'lndique. Si vous 
cvez la curios ite do taper CALL — 151 , puis 
$F940L, vous oonstaterez que fa premiere ins- 
fruetkm de PRNTYX commence par un TYA 
(qui met Y dans A), Autremenr dit, PRNTYX 
confie lout le travail a PRNTAX ! 
Remarque : eomme on a d£ja pu Je lire dans 
T.M, r e'est un moyen d'alficher en HEX A une 
valeur DEClMAiE. Alnsi. il strffit de poquer 
24576 aux odresse* 6-7 ; POKE 6,. 24576 — 
lNT(i4576/256) * 256 POKE 7, INT 
(24576/256).,. puis de taper CALL 768 pour 
obtenir f'qffichage de 6900. 



INPUT, WRITE ET READ 
EN MODE DIRECT 



• Povr des rvisons irop hngves d vous exphquer, 
j'oimeraii pouvoir iaire des INPUT en mode direct*., 
a linterievrd't/ne houde, puis stotAer mes donnees 
sur fa df%quetf&, toujours en mode direct Bst'Ce 
possible et comment ? t „ smAN(if ^ _ M§iqv9) 

INPUT x Possible, en utilisant le fameux POKE 
M8.0 (num£ro de ligne en cours d'e*6cution 



qui est normaiemenf ir 255... en mode direct). 

Exemple : POKE T1B.0 ; INPUT MS (sur la 

meme 1*gne)„, ou encore : 

POKE 118.0 : FOR I = 1 TO 10 ; INPUT M$(l) : 

NEXT 

Si ce nornbre de donnees est superieur a 10, 
tapez au pr^alable un DIM M$(... noimbre de 
donnees). 

Attention I Si vous avez d£ja "joue" avec la 
variable MS(n), vous vous exposerez A un 
REDIM'D ARRAY ERROR-., que vous ^viterez 
por un CLEAR. 

Longueur maximum del mots satsis ; 13 (qui 
nous expliquera pourquot ?). 

FICHIER SANS PROGRAMME i Bien sur que ;a 
morche (avec le DOS on m6molre j dvidem- 
ment), comme ceci : 

POKE 118,0 : POKE 51 t fl:PRINT CHRS (4) "OPEN 
ESSAI" : FOR I fe t TO 10 ; PRINT CHR$ (4) 
"WRITE ESSAI" : PRINT M$(l) : NEXT : PRINT 
CHR$ (4} "CLOSE ESSAI ' r 

Et vous pourrez verifier votre essai, fou jours, 
en direct, do io manure suivanfe i 
POKE 118.0 : POKE 51, : PRfNT CHRS (4) 
"OPEN ESSAt" : FOR I = 1 TO 10 : PRINT CHR$ 
(4) ' READ ESSAI" : INPUT S$(l1 NEXT : PRINT 
CHR$(4)XLOSE ESSAI* 

Puis controter lo presence des donnees dons 
la variable S${n) por ; 

FOR I = I TO 10 : PRINT M$(l) ; TAB {13} ; S${l) 
: NEXT 



ADRESSE DUNE VARIABLE 



• J'ai In quelque port (mois ou ?} qo'l! etaif (aaie de 
trouver, por le twchement de I'Ampersond, 
I'odresse d'une vor^ofc/e... Povvez^vous 4tlaifer ma 
lanterne ? 

Mtirt &ONIZOT /9S16Q MONTMQftENCY } 

Premtore operation : Indlquer 6 1'AmperKjnd 
que votre sous^programme est b t'adresse 
$300. Pour tela ; POKE 1013,76 ! POKE 1014.0 
: POKE 1015 3. 

Ensuite. il faut avoir des variables en 
memoire, ma is on peut taper A$ = TOTO"... 
pour essoyer \ Void la routine en L,M : 



TM 



0308- 


28 £3 


OF 


JSR 


*DFE3 


B303- 


AA 




I AX 




8384- 


28 48 


F9 


JSR 


*F?4B 


8307- 


A9 A0 




LDA 


£*A8 


838?- 


20 ED 


FD 


JSR 


*FDED 


&38C- 


98 




TYA 




838[>- 


4C 24 


ED 


JMP 


*ED24 



5A 



GUYHACHETTl 



I Deuxieme op*rotlort : 

L -p' Pour avoir la r6pon$e a taper (en mode direct 
ou dons I© cadre d'un programme) : 
& A$... ef ! odreiie con tenant le descriptit de 

10 variable s'affkhe en HEXA el en DECIMAL. 
Si certo adresse est $810, on pourra fire (6 
parllr de cette adresse) : 

— un octet confenant la longueur (en Hexq) 

— deux octets eonlenant I 'adresse ou est 
rru£rnoris£ le mot "TOTO" 

1 1 suffif de modifier (si peu) cette petite rou- 
t(ne pour qu'elle so r^vele capable d'af fierier 
lo longueur d'une variable : 



8388- 


20 


E3 


DF 


JSR 


*DFE3 


8383- 


AA 






TAX 




8384- 


20 


40 


F9 


JSR 


*F?40 


830 7- 


A? 


A0 




LDA 


f*A8 


9399- 


20 


ED 


FD 


JSR 


*FDED 


838C- 


84 


86 




STX 


*04 


839E- 


84 


07 




STY 


*87 


8318- 


A2 


08 




LDX 


£*80 


8 312- 


Al 


84 




LDA 


<*8A,X> 


8314- 


AA 






TAX 




8315- 


A9 


80 




LDA 




831 7- 


4C 


24 


ED 


JMP 


♦ED24 


Essayez-la 












POKE 118.0 : 


FOR 


1 - 


1 TO 5 : 


INPUT S${l) 



NEXT 

8ERNADETTE 

LILIANS 

RENE 

ANTOINETTE 
BERNARD 

FOR I = 1 TO 5 : & 5$(l) : PRINT ■ NEXT 

082 F 10 

0832 7 

0835 4 

0838 10 

0&3B 7 



POUR UN CADRE HGR 



- Je me suis QltoquS d votre routine de trace d'un 
cadre err LM d la page 47 do n°5. fa me decevait un 
peu qu'elle soit a peine plus copide que la version 
Basic- Vous trooverez cl-dessous une routine plus 
coorte (7 octets) ; quant 6 la vifesse, je vous laisse 
appf4cier, t * Cette fois, la version Basic devient vral- 
ment taborieuse f Une sew/* limitation : comme on 
travaille d I'octet f'abscisse va de 7 en 7 t ce qui fait 
que man cadre es t un peu plus ipais ( 14 pts) r 

Matfrir* OU VtiU (Ittt2MA*S£Ul&) 



TREMPLIN MICRO 



300- 


A? 


20 




LDA 


£*20 


302- 


85 


E4 




ST A 


*E4 


304- 


AO 


54 


ce 


LDA 


*C054 


30?- 


AD 


52 


ce 


LDA 


*C052 


30A- 


AD 


57 


ce 


LDA 


♦C857 


30D- 


AD 


58 


ce 


LDA 


*C050 


310- 


A9 


2A 




LDA 


£*2A 


312- 


28 


F4 


F3 


JSR 


*F3F4 


315- 


A9 


8C 




LDA 


£*8C 


317- 


85 


84 




STA 


$84 


319- 


20 


) 7 


F4 


JSR 


*F4! 7 


31C- 


A9 


88 




LDA 


£*00 


31 E- 


A0 


02 




LDY 


£*02 


.wk jm, >» 

323- 


91 


24 




STA 


<*24) ,Y 


322- 


CS 






I NY 




323- 


C8 


24 




CPY 


£*24 


325- 


D0 


F9 




BNE 


*8328 


327- 


E6 


04 




INC 


*04 


329- 


A5 


04 




LDA 


*04 


32B- 


C9 


B3 




CMP 


£*B3 


32D- 


D0 


E8 




BNE 


♦0317 


32F- 


40 






RTS 





Quand ['4crivats : "Gageons qu'ii se trouvera, 
parmi nos LectrJces ©t Lecletirs, qu&Ique g£nie 
capable do rondre la routine en longoge 
machine plus perforrnante"^. |e ne me from- 
pais pas. Bravo t 



1 PREVENTION ROUTfERE | 

* La Prdvenfton rautiire a du publier plusieurs logi- 
ciets a I'intention des enfants des dcoles, mots je ne 
r4ussi$ pos it let obtenir chez men revendevr Apple, 
pQUvez-vQvs m'indiquer les titres de ces hgkieh ef 
me fournir t'adresse de leur editeur ? 

Voub trouverez "En allant i Tecole — Le Pie- 
— r- 1 ton" 1 et "En allant 6 I'&ole — Le Cyclists" dons 
la collection des Logiciels Nathan. 
Cboque s^rie se pre*ente sous la forme hobi- 
tuefle : boite pfasHque, llvrel lllusfr^ et deux 
cassettes. Age conseille ; 4-8 ons et S-ll ans. 
II est certain que ces logiciels 4ducatifs sau- 
font faire prendre conscience aux enfants des 
dangers qu\ les guettent dans la rue. 
Cest de lo bonne besogne, mais 11 y a un hie : 
lis ne tonclionnent que sur T07 et W05 . . . ce qui 
pose bien des probldmes dans t'enseignemenf 
priv^. aO Apple «$t r semble-i-il, bien 
im plants. 

Souhaitons que Nathan edite rapidement une 
version sur Apple 1 

Cedlc/Nathan — 6 bd Jourdon — 750J4 PARIS, 

57 



Voiii avez ferit 

a tr mem MI CRO 




FORMATAGE IMAGEWRITER 



• Chen Amis de T. M,, cette lettre pour vous com- 
muniqver le programme ci-joint qui paurra, je 
pense. resaudre le problems d'un de vos correspor)' 
dants de T,M. n°6, M. Guy V, (92370 CHAVULE), qui 
eprouve de* difficult*"* ovecson IMAGEWRITER, 
Le problime de I'interligne d'obord, Voire lecteur 
ddsire 6 lignes par pouce ; c'est la configuration par 
d6fout de llmprlmante. It n'a done pas a s'inquieter. 
Quant 6 ta longueur de page et oux marges haute et 
basse, I'u till take ci-joint lul permeftra de venir a 
bout de ses difficuttes et lui permeitra, en prime, de 
cholsir I'uno des hull polices de carocteres disponi- 
hles sur I'lMAGEWRlTER. Ce programme a &fe cancu 
pour les listings les plus courants sur le marche, 
e'est-a-dire, } 1 et 12 pouces. Mais, s'il le desire, 
voire lecteur paurra utiliser des feuiiles de longueur 
differente en changeant la valeur du parametre LP a 
la llgne 263. Je pense qu'une valeur de 97 devralt 
convenir pour son papier de ?{?, 7 pouces. A lui de 
hire des essois I 

Claude BlVltlff ( 13009 MASSfJI If I 



19 TEXT : PRINT CHRt <2!>t HOME : INVERSE 
s PRINT " FORMATAGE IMAGEWRITER 'APPLE 
//E //D *l NORMAL s PRINT * 



PAR CLAUDE RIVIERE ■ 

29 VTAB 6t PRINT "L'lHPRlMANTE EST-ELLE BR 

ANCHEE '<iAi> ?';: GET R*£ PRINT R* 
3ft IF R* = "0" OR R* = "d" THEN 58 
41 IF fit = 'H* OR Rt = "n r THEN VTAB 9t HT 
AB 16; PRINT "ALQRS, BRAN CHEZ LA!": LTA 
B 12; PRINT "ET FRAPPEZ UNE TOUCHE POUR 
CONTINUER...";: BET Wfi GOTO 5B 
45 GOTO 20 

c .8 KTAS 3: i/TAB I5:SL* » " l'l PRINT "CART 
E SERIE DANS LE CflNNECTEUfi N"SL*?i CAL 
L - 1888; INPUT "?Rtt IF Rt ■ " THEN 
R* = SL* 

49 SL = WL 'R*?i VTAB ie:PR* = "LONGUEUR 
DU PAPIER UTILISE :': GOSUB 34*; HTAB 1 
lis INPUT "II OU 12 POUCES ? "jLPt; IF L 
Pt < > "11* AM) LP* < 3 "12" THEN 68 

76 IF LP* » "II" THEN LP = 184; GOTO 98 

8t LP = m 

Pi HOME £ OTAB 2s HTAB 12; INVERSE : PRINT 
"MODE D' IMPRESS I ON* : NORMAL 



5S 



188 VTAB 5: PRINT ETENDU <9 CAR/IN, 72 C 

0t>.... I'i PRINT "- PICA <ll CA 

R/IN ( B8 COL) - 2" 

111 PRINT ■- ELITE (12 CAR/IN, 94 COO 

3": PRINT '- PICA PROPORTIQWEL 

m COL).... .4* 

1 29 PRINT "- ELITE PRDPQRTTQNNEL <I8B COL) . 

.......5": PRINT 1/2 CONDENSE (13,4 

CAR/IN, 187 CCO. ,4' 
131 PRINT "- CONDENSE <I5 CAR/IN, 120 COL\ 

... PRINT "- ULTRA-CONDENSE C17 

CAR/IN, 132 CQLh.B' 
148 VTAB 22: HTAB IB: PRINT 'VQTRE CH01X (1 
-> 8) ? 4 it SET CHt: PRINT CH*tCH = UA 

L 'CH*)J IF CH < I OR CH ) 8 THEN 149 
15i PRINT CHRt <4)'PR£"SLs ON CH 60SUB 168, 

178, 1 89, J*B,28fl ,218,229 ,238: GOTO 259 
169 PRINT CHW (27) V: PRINT CHRt <9)'72N" 

l RETURN 

178 PRINT CHRt (27>"N"j PRINT CHRt <9)'B8N' 
; RETURN 

188 PRINT CHRt <27)"E"t PRINT CHRt m'W 
! RETURN 

198 PRINT CHRt f27)"p": PRINT CHRt "»"9dM" 
i RETURN 

299 PRINT CHRt (27)"P's PRINT CHRt <?)"198N 
": RETURN 

218 PRINT CHRt <27)"e"i PRINT CHRt (PJ'^TN 
*l RETURN 

221 PRINT CHRt <27)VJ PRINT CHRt (9) , 128N 
"i RETURN 

238 PRINT CHRt <27) i 0": PRINT CHRt <9>"132N 

*i RETURN 
248 i 

241 REN ******** 

242 REM • DEP.HAUT FEUILLE # 

243 REN ******************** 

244 t 

259 PRINT CHRt (2W| CHRt CHRt < M) j 

269 FOR I = 1 TO LP: PRINT CHRt (M>ft NEXT 
I REN REGLAGE LONG. FEUILLE 

27B : 

271 REM «*♦*«*»«**•*•******* 

272 REM » ARRET BAS FEUIL. • 

273 REM ■ WlMHtHH tt l lWI 

274 i 

288 PRINT CHRt <&7); CHRt <44>t 
2P9 FOR I = I TO 12: PRINT CHRt <i4)j: NEXT 
! REM REGLAGE NDMBRE DE LIGNES BLANCHE 
S POUR SAUT DE PAGE 
3«fl ! 

381 REN *«m#*M»*****»***» 

382 REM * DEPART FEUILLE S.* 

383 REM ■»**••»******##***« 

GUV-HACHETT1 



3B4 : 

316 PRINT CHR* <45>j CHR* (44) 5 CHR* f 39) 
326 HOME s PRINT CHR* (4>'PR£8 B : VTAB 2:PR* 
• *FORMATA6£ TERMINER INVERSE s GOSUB 
348; NORMAL 
336 VTA8 6;PR* = »FAITES HAINTENANT x': 60S 
UB 346: VTAB 16:PRt = "PR£N"Sl0T,fRETUf! 
N)'c GOSUB 346 J VTAB I2:PR* * "LOAD NOM 
.PRQGRtftiE, (RETURN)": GOSUB 346: "-/TAB 1 
4jPR* = "LIST, (RETURN)': GOSUB 346: END 



34» W = INT ( f 4fl - LEN 
PRINT PR*: RETURN 

S 



i.m)> / 2>: HTAB Ui 
: REM CENTftAGE TtTRE 



| GET.TIME 



• J'oi un prabl&me ! Debutant en informotique, je 
me heart* d un probl&me dontje n'ai trauv£ la solu- 
tion sur aucyn de mes livres. 

Comment faire en sorte qu'un iNPUT ne dure qu'un 
certain temps ? (pour loner sur do* temps de r4por\' 
ses, par exemple). 

Pourrfet-vous me fournlr la r4panse, ou m'indiquer 
oil lo d4couvrir ? 

Cetie petfie routine devrait foire votre 



IS* REM * GET.TIME 

lit TEXT ; PRINT CMRt (21): HOME :D* = CHR* 
<4);R* = CHRt (13) jfit = CHR* (7>:NS = 
B; CYCLES a 79? REM NBR.SECONDE ET CYCLE 
S SEL.CN LE MJCROPROCESSEUR <EXF.65C8Z) 
128 HTAB 4! PRINT "LE HOT 'ti INVERSE £ PRI 
NT ■AUTOMATE''!; NORMAL ! PRINT ' VIEW". 

HTAB 4; VTAB 4; PRINT ■....fr'ARAB] 
E m*i HTAB 4t VTAB 6: PRINT -....DE 
BRECE (8V 
125 HTAB 4: VTAB B: PRINT \...D£ CHINE ( 
£>"! HTAB 4: VTAB II: PRINT 'VMJB tf/EZ 
B SECONDES POUR REPONDRE' 
139 HTAB 16: VTAB 14: FLASH ! PRINT Wj? H 
ORMAL : PRINT FLASH ; PRINT "8'jj 
NORMAL : PRINT ' ou "js FLASK : PRINT 
"C": NORMAL a PRINT Gt: VTAB 26 

131 ] 

132 REM ••*•■#*#*•*••••»**•■•« 

133 REM * "CHflCND SECONDES" a 

134 REM ********************* 

135 i 

149 C = C ♦ If IF C / 38 = INT (C / 39) THE 
H FOR Z ■ 1 TO 3iB = PEEK ( - 1*336): N 



EXT I FOR P = I TO CYCLES: NEXT : PRINT 
VjiS » S ♦ Is IF S ■ NS THEN 299 
169 IF PEEK < - 16384) < 127 THEN 14|j REM 
TOUCHE PRESSEE? 

165 s 

166 REM »»***M*»»M »*»»♦*« 
147 RBI • SAISIE IMMEDIATE • 
168 REM »*♦•*»«»*♦**»*♦«»*«* 

it.'' : 

178 GET CAR*: PRINT 6*; HTAB 12: VTAB 29 
189 IF CARt = "B* DR CARt = "b' THEN PRINT 

"EN EFFET.'j GOTO 218 
199 PRINT "REPONSE FAUSSE'...'a END 
299 PRINT 6*6*1 HTAB 19: VTAB 29: PRINT "TE 

MPS LIMITE, TROP TARD" 
2fl END 



ON SGN(x) GOTO... 



* Peut-on utiliser $GN{ne) GOTO en Applesoft ? II 
me sembte que ceta ppurraif etre intdressant dons 
certains programmes, 

C. NtV£AU (Ct200 ViChfYJ 

Voici un ex«fnp-le : 



TW 



50,40 



18 HOME IX ■ 5 

29 X ■ X - 1 

30 ON SGN <X> ♦ 1 GOTO 
48 PRINT "NEGATIF" ! GOTO 70 
50 PRINT -NEUTRE-; GOTO 20 
6& PRINT "POSITIF"! GOTO 28 
70 END 



iRUN 

POSITIF 

POSITIF 

POSITIF 

POSITIF 

NEUTRE 

NEGATIF 



Ne pas oublier que SON 
donn# ; 

1 s| + (posltif) 

si 
— I si — (negalif) 



• Pour r4pandre d io question de Jean S. (04S6Q PIER- 
R£V£NT) sur fa SEIKOSHA-GP 106 A, panje dans T.M. 
n°6, page 57, je peux vous indiquer que, poor obtenlr 
una impression sur N cofannes (N < = 80), il hut 
foire i POKE — '2312, N (avec < N < = 83) 
Cest ainsi que je me suis constitu4 un itchier EXEC 
avec les commandes sulvantm ; 

POKE 33.33 UST 
POKE— mi2M Pff£S 
PR£l POKE 33,40 

qui me pormet d'obtenir un listing sur imprimante 
en 80 cohnnes, suphanm t. {4S m chalitti) 



rSSMPUM micro 



59 



Vous avez ecrit 

a TREMP UN MICRO 




* Monsieur Nestor, grosses fa/ses, avec mes melt- 
fours vceux pour 1986. Je cherche un hgiciel qui me 
permettrait cTutiHser mo SCttU a fond, surf out fa 
c&uleor J'ol dtijd THE PRINT SHOP, mats ce n'esipas 
g&ont* D'ovance beaucoup de mimis* et merci I Au 
fail, vaviex-vous gagner 30 F en on quart d'heure ? 
Simple i le wban de la SCRIBE coOte 69 F (a Lyon), 
Or r il sutHt d'auvrir le bottler (les encashes sont 
d'acces ires facile) &f de dScrocheter le ressort du 
rvban. Ensuite — de pr4f4rence pendant yn cours — 
on rembabine avec un crayon (pour h'nertie) et on 
remmt le ressort en place. Reste a remettre lo cas- 
sette dons llmprimante en prenanf soin de covvrir 
to tSte de lo cellule photo-tilectrique qui surveille le 
ban dtiroulement du ruban fan bout de sporadrap 
fait laffolre !). Gain ; 34,50 F pour ISW de "tra- 
vail" ! Super, non ? 

AfamncTrfl (6 Wfl7 i YON) 

Ah 1 ce que je suis content ! vrai : jo retrouve 
mes di>f-huit ans, et je deviens jaloux do ton 
inteflocuieur pr£fere (quand mernej, un 
Apple He Wlai& je n'aurai pas droit dux nriimis 
because... rien h te proposer. Si les Le< tewrs 
de Tremplio Micro ont de bans tuyouK, |e le 
promets de te les foire suivre, foi de Nestor ! 

• J'oimetois b£neficier de la double haute r&solu- 
tian ovec man Apple He, Comment faire ? 

WJcofoi N, {5T740LQNGUZVHLf} 

II est probable que T,M, se penchera un jaur 
sur ce problfcme, Notei qull exlste un logic! el 
sur les dltquettes accornpagnant la Carte Chat 
Mauve vendue pour le He. 



TM 



* Je sute o la recherche d'un logiciet (Apple He) ainti 
que du cSblogo peripherique concernant Emission 
•reception en CW. (morse) et RTTY (pas do mate- 
riel, rnols des informations). Une annonce ou on 
regroupement de personnes ayant le m&me int4rAt 
pour ce mode de transmission, est chose concevo- 
ble r , . si vous m 'aidez en ce sens. 

ChrSttSan 5. (Mt4ti liAMCOUBY) - (tcriro ou fownaS}. 



m 



Voita qui est fait... Tenez-nous ou couronl et 
merci J 



MANETTES DE JEUX 



TM 



* Le petit programme ci-conire auroH du prendre 
place dans lo numdro 6 da T*NL (voir courrier, page 



67), mats H n'est jamais trap tard pour bien faire. 

L'etat dos boutons des maneltes de jeu)* est 
verifiable en lisant lo zone d'ertlrees-' sorties 
de 1' Apple, oux adresses $C06 1 . SC06? ! 
PEEK(49249) et p£EK{49250). Le rAsultat est 
sup^rieur 6 127 si un des boutons est press e. 
En d'autres lermes. le BIT 7 passe de a 1. 



m REM * MANETTES EN MODE GfiAPHISHE 
lit TEXT t NOPmL 3 PRINT CHP* '2D: HCME 
j H6R ; KTAe li '.TAB 22s PRINT "ESC> P 
ETOUP MENU'iM = CHW <4) tB* = CUM <7 
>ML - — 159s PRINT B*i PEM MflK 

.ECRAN 



m 

130 

IS* 
14* 

(71 
m 



299 
211 
22« 

2A9 

258 

2a 

27* 

m 



REH •****•»•** »n 

REM » LECTURE PAWWET. • 

REM 

X = PDL («>(Y = POL <l>; REM COORDOmE 
ES WWETTE 

IF PEEK - H2$?> ) 127 THEN PRINT G* 
sS ■ »i HTAB l! VTAB 22: PRINT 'BDUTCN 
2 "}i IWJEPSE t PRINT •POINT/TRACE* s 

!F PEEK *. - 14286) > 127 THEN PRINT S» 
; HTAE 1: VTAB 22l PRINT *B0UT0N I 

INJERSE t PRINT 'EFFACEMENT 11 ;! NORMAL 

; PRINT * HCR sDR = 9 
IF S = 1 THEN OR ■ ABS fDR - l):5 = 8: 

REM 1WEPSEUR TRACE DU NDN <eOLTTON 2) 
IF PEEK '49152) = 155 THEN PRINT DVRU 
N MENU" : REM ESC) 

REN •♦MMOM»»M»»««» 

REN • TRACE AUK COORDS » 

REM HHimiHHtHIMI 



X = INT (Xh IF X > ML THBI X ■ MLs RE 
M LIMITE ECRAN 

Y = INT (Yh IF Y > m THEN Y = MH 
IF OR = 9 At* P * fl THEN HC0L0P= 9i HP 
LOT AX„AYj HC0LOR= 3j HPLOT X t Y; REM 
N EFFACE LE PDINTEUR LORS D'UN OEPLACE 
MENT 

399 IF DR = I THEN FDR I = t TO 2: HPLOT A 
X + l,AY * I TO X ♦ !,Y ♦ Is NEXT h * 
EM TRACE OEUX OROtTES POUR L'EPAISSEUG 

319 HTAB 23: \^AB 22s PRINT X' J t HTAB 33 
I VTAB 22i PRINT Y" *I REN ECR1TURE D 
ES COORWMJEES 

32* AX = X;AY = Y; GOTO 179: REM ON CONSER 
UE X.Y POUR IN TRACE AX->X AY->Y 



GUY-H ACHETTE 



TREMPLIN MICRO 



FICHE 7 



ECRAN DE 80 COLONNES 



MEMO ET COPIE 



MATER1EL5 : Apple He ou He — Imprlmante OAAP oo IMAGEWRITER (I et II) 
OBJET ; Memorisation des 24 lignes d un e>cran de fl(3 colonrtes sous forme de fausses variables 
(blocs de 60 taracten-es suivis d'un octet ZtRO). 

ADRESSE : 6192 {$3009). 

I NTERET : Permel de comprendre le mecanisme de lecture el de memorisation d'urtd poge- 
ecran r Autonse le reaffichage de ce meme ecron... mais la 24* Mgne provai^ue un 
scroll (derou lenient des lignes d'eoran vers le haut). 



300 


A9 


20 


IDA 


£$70 






85 


07 


STA 


S07 


Initialisation de I'adresse de base pour la memorisation 


304 ' 


A9 


00 


IDA 


£S00 


des donnees ($2800 = 8192) 


306 


as 


06 


STA 


$06 




30B 


85 


25 


STA 


525 n 


CV : Position vertical© du turseur 


30A 


E6 


25 


INC 


$25 




30C 


20 


CI FB 


JSR 


5FBC1 □ 


BASCALC ranqe dans $28-$29 I'adresse de base 


30F 


AO 


00 


LDY 


£$00 


Initialisation de la faoucle avec ¥ 


311 : 


SD 


55 CO 


STA 


5C055 


Lecture page 2 


314 


Bl 


28 


LDA 


!$28).Y 


Lecture de I'octet h 1'adress* ir*dlqu*» dons S28-S29 + Y 


336 


C9 


20 


CMP 


£520 


Esf-ce plus grand que $20 ? 


318 
31A 
318 


B0 

18 
69 


03 


BCS 
CLC 
A DC 


$0310 


Si plus grand ou egal S20, On posse 


CO 


£SC0 


ou alors on apute SCO 


310 


91 


06 


STA 


{$06}, Y 


M4mo 6 I'odres&e Indrquee dons $6-7 + Y 


31F 


E6 


06 


INC 


$06 


Plus un pour adresse m&no 


321 


DO 


02 


BNE 


$0325 


Si different de 0, pas de retenue 


323 


E6 


07 


INC 


$07 


Dans ie cos contraire, + 1 pour parti© houte 


325 


80 


54 CO 


STA 


SC054 


Lecture oooe 1 


328 


Bl 


28 


LDA 


($28).Y n 




32A 


a 


20 


CMP 


£$20 




32C 
32E 


80 

18 


03 


BCS 
CLC 


$0331 


Meme processus que pour la page 2 (plus haul]. 


32F 


69 


CO 


ADC 


£$C0 




331 


91 


06 


SI A 


($06), Y _ 




333 


C8 




1NY 




¥ = Y + 1 pour b boiide 


334 


CO 


28 


CPY 


£$28 


Esf-on a 40 ($28] ? 


336 


oo 


09 


BNE 


$0311 


Non : on fait un autre tour. 


338 




00 


LDA 


£$00 


Oui ; on stocks le coraetere (fin de choTne) h lo fin de 


33A 


91 


06 


STA 


($06) ,Y _ 


lo ligne 


33C 


is 




CLC 




Rolen ue annul fro 


330 


- A5 


06 


LDA 


$06 


texture de la memoire S6 


33F 


69 


29 


ADC 


£$29 


+ $29 (28 el \ octet nul) 


341 


. 85 


06 


STA 


$06 


Ecriture memoire S6 


343 


. 90 


02 


8CC 


$0347 


S'll n'y a po* de reienue, saut. 


345 


E6 


07 


INC 


S07 -| 


Dons le cas conlroiro, 


347 


: AS 


25 


LDA 


$25 


plus 1 pour partie haute 


349 


C9 


IB 


CMP 


£$18 


A-t-on lu les 24 lignes |$1 8]? 


34 B 


DO 


BD 


BNE 


5030A 


Non ; encore un tour. 



(ICI UK MEMORISATION EST TFRMINEE) 



GUY-HACHITTC — f REMPUN MICRO 



TREMPLIN MICRO 



FICHE 7 



COPIE DE L'ECRAN (suite) 



34D ; 


48 






PHA 




34E : 


8A 






TXA 




34 F : 


48 






PHA 




3513 s 


98 






TYA 




351 ; 


48 






PHA 




352 : 


A9 


01 




LDA 


£$01 


354 : 


20 


95 


FE 


JSR 


$FE95 


357 : 


A2 


oc 




LDX 


£$0C 


• 


80 


95 


53 


LDA 


$0395, X 


35C: 


20 


ED 


FD 


JSR 


SFDED 


35F : 


CA 






DEX 




m : 


DO 


F7 




3NE 


$0359 


362 : 


A2 


20 




LDX 


£$20 


364 : 


86 


07 




STX 


$07 


366 


A2 


00 




LDX 


£$00 


36S : 


86 


06 




STX 


$06 


36A: 


A? 


18 




LDX 


£$18 


36C : 


86 


08 




5TX 


SOB 


36E : 


A5 


06 




LDA 


$06 


370 : 


A4 


07 




LDY 


$07 


372 : 


20 


3A 


Dfi 


JSR 


SDB3A 


375 : 


A9 


OA 




LDA 


£$0A 


377 ; 


20 


ED 


FD 


JSR 


SFDED 


37A: 


C6 


08 




DEC 


SOS 


37C ; 


F0 


0D 




BEO 


$038B 


37E : 


18 






CLC 




37F ; 


A5 


06 




LDA 


$06 


381 ! 


69 


51 




ADC 


£S5l 


JoJ : 




Go 






>VO 


385 : 


90 


02 




BCC 


$0389 


387 : 


£6 


07 




INC 


$07 


389 : 


00 


E3 




BNE 


$036E 


38B : 


A9 


00 




LDA 


£$00 


38D : 


20 


95 


F€ 


JSR 


$FE95 


390 ; 


68 






PLA 




391 : 


AB 






TAY 




392 : 


6B 






PLA 




393 : 


AA 






TAX 




394 : 


6B 






PLA 




395 : 


60 






RTS 




396 : 


0D 


30 


31 30 


4C IB 


] 


39C: 


45 


IB 


4E 30 


3B 09 





On emptle les val&urs des r&gisl-res ovarii d'uliliser 
I'imprimonte 



Cest fePR£1 du Basic 



Lg* cod&s frrtvov^s b I'lmprimonie soul stock** 6 parti r 
de 5396 (6 l'«nvars} 



Porcwnfeires de i'adresse de base I memoristrtton) 



N ombre de lignes (24} 



Adresse de la tigne dans A et Y, puis afftchage par 
STROUT (la ehglne se termine par {J ou por ") 

+ retour charfcrt. 6 iwnplacer par EA EA EA EA EA 
avec certalne* Imnprl mantes 
Mains 1 ay nombre de lignes 
Si z*ro... iGrmln* 
Annulallon de la retenue 



+ 81 {$51] pour lire lo figne suivonte 

On rt'a pas zero done on saute 
PR£0 du Basic 

Recuperaiion des valeurs empU&as 

Retour au &asic._. ma is il faudra un RESET 

Codes envoys & nmprlmorite ; lus 6 l envers,, Ih donro&nt : 
CHR$(9) SON ; CHR$(27) E ; CHRS(27) 1010 ! CHRS (13) 



Si vous fnstallez la courte routine ci-aprfts, un CALL 930 provoquera | e reaffichoge des 24 lignes 
d'^cran (ou des 23 lignes,.. sans SCROLL, avec $3A£ = $17) 

3A2 ! 20 56 FC A2 20 86 97 A2 00 86 % A2 18 3BC : 18 A5 06 69 5t 85 06 9fl 02 E6 07 DO E8 
% QB AS $fe A4 97 20 3A DB C6 08 Ffl 3D 66 25 20 22 fC 60 



GUY HACHETTE — TREMPLIN MiCHO 



Les heureux possesseurs de 




ont deja recu un premier programme 
d 'application utilisant les ressources du 
logiciel de Claude Aubry. 

Prochainement, ils pourront participer a un 

jeu qui recom pen sera precisement les 
auteurs des deux meilleures applications. 



